Question

word vba 如何获取指定目录下的表格,我都快疯了，帮帮我啊

Answer 1

Sub 打开工作簿取值()
Application.ScreenUpdating = False
i = 1
myfile = Dir("d:\数据\*.xls")
Do While myfile <> ""
If myfile <> ThisWorkbook.Name And myfile <> "personal.xls" Then
Set mywb = Workbooks.Open("d:\数据\" & myfile)
Cells(i, "A") = mywb.Sheets(1).[A1]
i = i + 1
mywb.Close False 'False 改为True 则保存
myfile = Dir
End If
Loop
Set mywb = Nothing
Application.ScreenUpdating = True
End Sub

Answer 2

先定位到指定目录，然后选取selection.tables(0)

Answer 3

你要获取什么啊

Answer 4

不知现在是否有解？遇到同样的问题。。。如已有解，烦请分享