[求助]关于取得文件途径的代码如何写?各位能帮我看看吗？

lisaa

 [求助]关于取得文件途径的代码如何写?各位能帮我看看吗？谢谢

yV3RBk3f.rar (6.63 KB, 下载次数: 166)

2008-9-28 15:54 上传

点击文件名下载附件
[求助]关于取得文件途径的代码如何写?各位能帮我看看吗？

winland

设置Label的Click事件，使用GetOpenFilename。

Private Sub Label20_Click()
    Dim strFile As String
    strFile = Application.GetOpenFilename("Excel File(*.xls),*.xls", , "请选择文件")
    If strFile <> "False" Then
        TextBox1.Text = strFile
    End If
End Sub

yf_992258

写的简单一点,请试一试

Private Sub CommandButton1_Click()
Dim wb As Workbook
Dim wbname As String
a1 = TextBox1.Text
If a1 = "" Then MsgBox "先选择'表'", , "提示": Exit Sub
a = Split(a1, "\")
wbname = a(UBound(a))
Set wb = Workbooks.Open(a1, UpdateLinks:=False)
End Sub

Private Sub Label20_Click()
 sfile = Application.GetOpenFilename("Excel(*.xls),*.xls", , "请选择需要导入的文件")
If sfile = CStr(False) Then
    MsgBox "没有选择文件", vbOKOnly, "提示"
    Exit Sub
End If

TextBox1.Text = sfile
End Sub

lisaa

谢谢!但点击打开按纽没有打开文件啊

yf_992258

cIgDgnaU.rar (7.44 KB, 下载次数: 204)

2008-9-28 16:23 上传

点击文件名下载附件
[求助]关于取得文件途径的代码如何写?各位能帮我看看吗？

不可能吧,我这可以的,加在你的附件里了,再试试呢!

lisaa

谢谢!发现有密码的文件怎解决?不用手工输,用代码直接打开,密码123

yf_992258

例如:Set wb = Workbooks.Open("c:\aa.xls", Password:="123"),自己调试吧

lisaa

Set wb = Workbooks.Open("a1", Password:="123")
谢谢!请问这样为何不行,我想利用TextBox1.Text,因为很多表名是不同的,这样对代码写法会很简短

winland

第5楼的例子就可以了，楼主试过没有？

你下面使用的方法不对，a1是一个变量，不能使用双引号。

Set wb = Workbooks.Open("a1", Password:="123")
谢谢!请问这样为何不行,我想利用TextBox1.Text,因为很多表名是不同的,这样对代码写法会很简短

lisaa

谢谢版主，我看了3楼的代码，呵呵