Excel VBA質問箱 IV

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

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


42850 / 76732 ←次へ | 前へ→

【38944】Re:転記について教えてください!
発言  かみちゃん  - 06/6/14(水) 23:49 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>ファイルA〜Dの4ファイルから3つのセル値を抽出し、ファイルXという新しいブックにまとめて転記したいのですが、下記の型を4回書く方法しかできませんでした。(ファイルA〜Dの中のひとつファイルAを書いてみましたが・・・)これをひとつのSubにまとめることはできるのでしょうか?

以下のようなコードが、ちょっとしたヒントになりますでしょうか?

Sub Test()
 Dim i As Integer
 Dim strBookName As Variant
 
 strBookName = Array("A", "B", "C", "D")
 For i = 0 To UBound(strBookName)
  MsgBox "ブック" & strBookName(i) & " を処理します"
 Next
 MsgBox "終了"
End Sub
2 hits

【38943】転記について教えてください! ESMEY 06/6/14(水) 23:42 質問
【38944】Re:転記について教えてください! かみちゃん 06/6/14(水) 23:49 発言
【38946】Re:転記について教えてください! T 06/6/15(木) 6:53 発言
【39012】Re:転記について教えてください! ESMEY 06/6/15(木) 22:21 お礼

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