【无标题】VB6 文件操作 打开Excel文件

Private Sub CmdUpload_Click()
    msoFileDialogFilePicker.Filter = "*.xls|*.xlsx"
    msoFileDialogFilePicker.DefaultExt = "xlsx"
    msoFileDialogFilePicker.DialogTitle = "Select File"
    msoFileDialogFilePicker.InitDir = "C:\Users\" & Environ("USERNAME") & "\Documents"
    msoFileDialogFilePicker.ShowOpen
    Text1.Text = msoFileDialogFilePicker.FileName
    Text1.Tag = msoFileDialogFilePicker.FileTitle

 If Text1.Text <> "" Then
        If Dir("D:" & "\CustomerComplaints\" & CStr(mComNo) & "-" & Text1.Tag) = "" Then
            FileCopy Trim(Text1.Text), "D:" & "\CustomerComplaints\" & CStr(mComNo) & "-" & Text1.Tag
        Else
           If MsgBox("Type of file already existing, replace it??", vbYesNo, "Confirm") = vbYes Then
               FileCopy Trim(Text1.Text), "D:" & "\CustomerComplaints\" & CStr(mComNo) & "-" & Text1.Tag
           End If
        End If
    End If
End Sub

Private Sub CmdView_Click()
    CommonDialog1.Filter = "Uploaded Files (*.*)| *" & txtComNo.Text & "*.*;" & txtComNo.Text & "*.*|All files (*.*)|*.*"
    CommonDialog1.InitDir = "D:\CustomerComplaints"
    CommonDialog1.DefaultExt = "xlsx"
    CommonDialog1.DialogTitle = "Select File"
    CommonDialog1.ShowOpen
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    Set xlBook = xlApp.Workbooks.Open(CommonDialog1.FileName)
End Sub