通过浏览打开文件在执行操作
原本我的程序是通过在程序中指定路径打开特定的文件直接操作的
现在想加添加一个open钮并在textbox中显示打开的文件名
再按执行键对所打开的文件进行操作
现在我把两个程序分别贴出来
请大大们帮我进行连接
执行单一路径指定文件
Private Sub Command1_Click()
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Dim lsFileName As String
Dim llRow As Long
Dim llCol As Long
Dim lsTemp As String
Dim n() As String
lsFileName = App.Path & "\sjdm "
llRow = 0
Set xlBook = xlApp.Workbooks.Add()
Set xlsheet = xlBook.Worksheets(1)
Open lsFileName & ".dat " For Input As #1
Do While Not EOF(1)
Line Input #1, lsTemp
n = Split(lsTemp, Chr(9))
Debug.Print lsTemp
llRow = llRow + 1
For llCol = 0 To UBound(n)
xlsheet.Cells(llRow, llCol + 1) = n(llCol)
Next
Loop
Close #1
xlBook.SaveAs lsFileName & ".xls "
xlBook.Close (True)
xlApp.Quit
Set xlApp = Nothing
End Sub
文件浏览打开程序：
Private Sub CmdOpen_Click()
On Error Resume Next
CdlTest.CancelError = True
CdlTest.DialogTitle = "打开文件 "
CdlTest.FileName = " "
CdlTest.Filter = "所有文件 (*.*)|*.* "
CdlTest.Flags = cdlOFNCreatePrompt + cdlOFNHideReadOnly
CdlTest.ShowOpen
If Err = cdlCancel Then Exit Sub
TextBoxOPen.Text = CdlTest.FileName
End Sub
如果需要源文件我可以发给大大，请亲自指教
[解决办法]
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Dim lsFileName As String
Dim llRow As Long
Dim llCol As Long
Dim lsTemp As String
Dim n() As String
CdlTest.CancelError = True
CdlTest.DialogTitle = "打开文件 "
CdlTest.FileName = " "
CdlTest.Filter = "所有文件 (*.*)|*.* "
CdlTest.Flags = cdlOFNCreatePrompt + cdlOFNHideReadOnly
CdlTest.ShowOpen
If Err = cdlCancel Then Exit Sub
lsFileName = CdlTest.FileName
llRow = 0
Set xlBook = xlApp.Workbooks.Add()
Set xlsheet = xlBook.Worksheets(1)
Open lsFileName & ".dat " For Input As #1
Do While Not EOF(1)
Line Input #1, lsTemp
n = Split(lsTemp, Chr(9))
Debug.Print lsTemp
llRow = llRow + 1
For llCol = 0 To UBound(n)
xlsheet.Cells(llRow, llCol + 1) = n(llCol)
Next
Loop
Close #1
xlBook.SaveAs lsFileName & ".xls "
xlBook.Close (True)
xlApp.Quit
Set xlApp = Nothing
