用VB通过文件名打开指定文件夹下EXCEL文件(页 1) - VB6论坛

y3231057 发表于 2008-7-3 15:44

用VB通过文件名打开指定文件夹下EXCEL文件

在一个VB程序中，有一个TEXT文本框和一个COMMAND1按钮，现在通过在TEXT文本框中输入EXCEL文件的部分文件名（也就是所有的文件名前8位数字，是唯一的），点击确定按钮来打开文件，文件在一个大的文件夹里面（内部有子文件夹），应该怎么来写相应的代码，请各位帮忙，谢谢！

我不会写查找的代码

Private Sub CmdOK_Click()
If TextPoNum.Text = "" Then
  MsgBox "请输入你需要打开的EXCEL文件！"
Else
  Dim oleExcel As Object
  Dim PoNum As String
  Set oleExcel = CreateObject("Excel.Application")
  oleExcel.Visible = True
  oleExcel.Workbooks.Open FileName:="这里不知道怎么写"

End If
End Sub

multiple1902 发表于 2008-7-3 22:23

用脑子。想。

Excel.Application都会用了，这里怎么可能不会写……

页: [1]