Excel VBA質問箱 IV

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

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


66558 / 76738 ←次へ | 前へ→

【14743】Re:データの入出力
質問  to  - 04/6/6(日) 17:19 -

引用なし
パスワード
   ▼ちゃっぴ さん:
>> GetOpenFilenameはMultiSelectをTrueにするとファイル名の
>> バリアント型の配列を返します。
>
>> 従って、「For 〜 Nextステートメント」か「For Each 〜 Nextステートメント」
>> で配列を一件ずつループしてやる必要があります。
>
>ということなので
>
>Dim vntFilename As Variant
>
>For Each vntFilename In FileToOpen
>  Workbooks.Open vntFilename
>Next vntFilename
>
>のようにしてみてください。
>ヘルプで「For Each...Next ステートメントの使い方」を参照してみてください。


▼ちゃっぴ さん

出来ました!どうもありがとうございます。
そこで当初の質問に戻るのですが、その選択したファイルからデータをコピーして
別ファイルに出力するようにしたいのです。
お手数おかけしますが引き続きお願いします。
コピーして別ファイルに出力するソースを公開します。


Const INBOOK  As String = "Book1.xls"
Const INSHEET  As String = "insheet1"
Const OUTBOOK  As String = "Book3.xls"
Const OUTSHEET As String = "outsheet1"
Const INSHEET2 As String = "insheet2"

Private Sub CommandButton1_Click()

  
  Workbooks(INBOOK).Worksheets(INSHEET).Range("D40,F40:K40,O40,AM40").Copy
  
    Workbooks("Book3.xls").Worksheets("Sheet2").Range("B2").PasteSpecial xlPasteAll
  
      Application.CutCopyMode = False
  
  
  Workbooks(INBOOK).Worksheets(INSHEET2).Range("M4,AT4,AU4,BB4,BC4,BD4,BE4").Copy
  
    Workbooks("Book3.xls").Worksheets("Sheet2").Range("B4").PasteSpecial xlPasteAll
  
      Application.CutCopyMode = False
   
  
  Workbooks("Book3.xls").Worksheets("Sheet2").Cells(2, 2).Copy
  
    Workbooks(OUTBOOK).Worksheets(OUTSHEET).Cells(3, 19).PasteSpecial xlPasteAll
  
      Application.CutCopyMode = False
      
  Workbooks("Book3.xls").Worksheets("Sheet2").Cells(2, 3).Copy
  
    Workbooks(OUTBOOK).Worksheets(OUTSHEET).Cells(6, 6).PasteSpecial xlPasteAll
  
      Application.CutCopyMode = False
      
  Workbooks("Book3.xls").Worksheets("Sheet2").Cells(2, 4).Copy
  
    Workbooks(OUTBOOK).Worksheets(OUTSHEET).Cells(6, 7).PasteSpecial xlPasteAll
  
      Application.CutCopyMode = False
      
  Workbooks("Book3.xls").Worksheets("Sheet2").Cells(2, 5).Copy
  
    Workbooks(OUTBOOK).Worksheets(OUTSHEET).Cells(6, 9).PasteSpecial xlPasteAll
 
      Application.CutCopyMode = False
      
  Workbooks("Book3.xls").Worksheets("Sheet2").Cells(2, 6).Copy
  
    Workbooks(OUTBOOK).Worksheets(OUTSHEET).Cells(6, 10).PasteSpecial xlPasteAll
  
      Application.CutCopyMode = False
      
  Workbooks("Book3.xls").Worksheets("Sheet2").Cells(2, 7).Copy
  
    Workbooks(OUTBOOK).Worksheets(OUTSHEET).Cells(6, 12).PasteSpecial xlPasteAll
  
      Application.CutCopyMode = False
      
  Workbooks("Book3.xls").Worksheets("Sheet2").Cells(2, 9).Copy
  
    Workbooks(OUTBOOK).Worksheets(OUTSHEET).Cells(6, 13).PasteSpecial xlPasteAll
  
      Application.CutCopyMode = False
      
  Workbooks("Book3.xls").Worksheets("Sheet2").Cells(2, 10).Copy
  
    Workbooks(OUTBOOK).Worksheets(OUTSHEET).Cells(14, 4).PasteSpecial xlPasteAll
  
      Application.CutCopyMode = False
            
  Workbooks("Book3.xls").Worksheets("Sheet2").Cells(4, 2).Copy
  
    Workbooks(OUTBOOK).Worksheets(OUTSHEET).Cells(38, 11).PasteSpecial xlPasteAll
  
      Application.CutCopyMode = False
            
  Workbooks("Book3.xls").Worksheets("Sheet2").Cells(4, 3).Copy
  
    Workbooks(OUTBOOK).Worksheets(OUTSHEET).Cells(6, 18).PasteSpecial xlPasteAll
  
      Application.CutCopyMode = False
      
  Workbooks("Book3.xls").Worksheets("Sheet2").Cells(4, 4).Copy
  
    Workbooks(OUTBOOK).Worksheets(OUTSHEET).Cells(6, 19).PasteSpecial xlPasteAll
  
      Application.CutCopyMode = False

  Workbooks("Book3.xls").Worksheets("Sheet2").Cells(4, 5).Copy
  
    Workbooks(OUTBOOK).Worksheets(OUTSHEET).Cells(6, 2).PasteSpecial xlPasteAll
  
      Application.CutCopyMode = False

  Workbooks("Book3.xls").Worksheets("Sheet2").Cells(4, 6).Copy
  
    Workbooks(OUTBOOK).Worksheets(OUTSHEET).Cells(6, 3).PasteSpecial xlPasteAll
  
      Application.CutCopyMode = False

  Workbooks("Book3.xls").Worksheets("Sheet2").Cells(4, 7).Copy
  
    Workbooks(OUTBOOK).Worksheets(OUTSHEET).Cells(6, 20).PasteSpecial xlPasteAll
  
      Application.CutCopyMode = False

  Workbooks("Book3.xls").Worksheets("Sheet2").Cells(4, 8).Copy
  
    Workbooks(OUTBOOK).Worksheets(OUTSHEET).Cells(6, 21).PasteSpecial xlPasteAll
  
      Application.CutCopyMode = False


  MsgBox "終了・・・"
      
End Sub

0 hits

【14730】データの入出力 to 04/6/6(日) 15:20 質問
【14731】Re:データの入出力 ちゃっぴ 04/6/6(日) 15:25 発言
【14732】Re:データの入出力 to 04/6/6(日) 15:41 回答
【14734】Re:データの入出力 ちゃっぴ 04/6/6(日) 15:52 回答
【14737】Re:データの入出力 ちゃっぴ 04/6/6(日) 15:57 回答
【14738】Re:データの入出力 to 04/6/6(日) 16:34 質問
【14741】Re:データの入出力 ちゃっぴ 04/6/6(日) 16:51 回答
【14743】Re:データの入出力 to 04/6/6(日) 17:19 質問
【14752】Re:データの入出力 ちゃっぴ 04/6/6(日) 22:04 回答
【14753】Re:データの入出力 to 04/6/6(日) 22:49 お礼
【14754】Re:データの入出力 ちゃっぴ 04/6/7(月) 1:31 発言

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