Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

47988 / 76738

←次へ　｜　前へ→


	【33690】Re:一覧表の作り方

じゅん - 06/1/18(水) 13:21 -


	引用なし

	パスワード

▼初心者さん：

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パスで)指定したサーバ内のファイルを順番に開き、シート内のデータを取得します。

0 hits

▼

【33655】一覧表の作り方 初心者 06/1/17(火) 16:43