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

0 hits

【44569】複数ファイルの一元化について ドルフィン 06/11/21(火) 23:36 質問
【44577】Re:複数ファイルの一元化について ハチ 06/11/22(水) 9:21 発言
【44578】Re:複数ファイルの一元化について ドルフィン 06/11/22(水) 9:44 質問
【44580】Re:複数ファイルの一元化について ドルフィン 06/11/22(水) 11:27 発言
【44581】Re:複数ファイルの一元化について maverick 06/11/22(水) 12:26 回答
【44583】Re:複数ファイルの一元化について maverick 06/11/22(水) 12:54 発言
【44585】Re:複数ファイルの一元化について ドルフィン 06/11/22(水) 13:06 お礼

37320 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free