Question

EXCEL 我希望用VB实现运行时弹出对话框，选择任意文件，然后在表格的A1、A2输出文件路径和文件名

这个是读取文件路径的
Set objFD = Application.FileDialog(msoFileDialogFolderPicker)
With objFD
If .Show = -1 Then
sPath = .SelectedItems(1)
Cells(8, 4).Value = .SelectedItems(1)
End If
End With
这个是读取文件名的
Dim arr()
arr = Application.GetOpenFilename("所有支付文件 (*.xls;*.xlsx;*.csv),*.xls;*.xlsx;*.csv,Excel 文件 (*.xls),*.xls,Excel2007 文件 (*.xlsx),*.xlsx,CSV 文件 (*.csv),*.csv", , "选择文件", , True)
Cells(7, 4).Value = arr()

Answer 1

这个你可以用几个函数实现，inputbox，还有操作excel的range

追问

你帮我写出来吧，不知道怎么写

追答

我帮你写

追问

谢谢哈

Answer 2

可以哈。这个我可以做。

追问

怎么做呀？大神，诚心求教，单个读取文件名或者读取文件夹路径都可以，但不知道怎么在读取文件名的同时读取文件夹路径

追答

你的代码是什么 发来看看

追问

已发补充问题

追答

你这个是vb.net的？不是vb6.0的