Excel VBA質問箱 IV

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

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


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

37320 / 76732

←次へ　｜　前へ→


	【44583】Re:複数ファイルの一元化について

maverick - 06/11/22(水) 12:54 -


	引用なし

	パスワード

サンプル
-----------------------------------------------------------
　　Else
　　　 ThisWorkbook.Sheets("プリンタ全情報").Cells.ClearContents

　　　 i = 2
　　　 Set myWS = ThisWorkbook.Sheets("プリンタ全情報")
　　　 Do While myFile <> ""
　　　　　Set tgWB = Workbooks.Open(myPath & myFile)
　　　　　Set tgWS = tgWB.Sheets("プリンタ")

　　　　　myWS.Cells(i, 1).Value = tgWS.Cells(2, 2).Value & tgWS.Cells(2, 3).Value
　　　　　For j = 2 To 4
　　　　　　　myWS.Cells(i, j).Value = tgWS.Cells(j + 2, 4).Value
　　　　　Next j
　　　　　i = i + 1
　　　　　tgWB.Close: Set tgWB = Nothing
　　　　　Set tgWS = Nothing
　　　　　myFile = Dir()
　　　 Loop
　　　 Set myWS = Nothing
　　End If

1 hits

▼

【44569】複数ファイルの一元化について ドルフィン 06/11/21(火) 23:36