|
▼初心者 さん:
Public Sub subMacro()
Dim WshShell As Object
Dim strBookName As String
Dim wsWorkSheet As Worksheet
Set WshShell = CreateObject("WScript.Shell")
WshShell.CurrentDirectory = "\\localPC" '←UNCパス
'MsgBox CurDir
strBookName = Dir(CurDir & "\", vbNormal)
While strBookName <> ""
'MsgBox strBookName
Workbooks.Open Filename:=CurDir & "\" & strBookName '(カレントディレクト内の)ブックを開く
For Each wsWorkSheet In Application.Worksheets
MsgBox wsWorkSheet.Cells(1, 1).Value '1行A列の値を取得
Next
ActiveWorkbook.Close '開いたブックを閉じる
strBookName = Dir()
Wend
End Sub
こんな感じでいかがでしょう?
(UNCパスで)指定したサーバ内のファイルを順番に開き、シート内のデータを取得します。
|
|