Excel VBA質問箱 IV

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

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


44078 / 76732 ←次へ | 前へ→

【37677】Re:Excelファイルの結合
回答  Kein  - 06/5/15(月) 14:51 -

引用なし
パスワード
   複数のブックを、[Ctrl]キーを押しながら選択できるダイアログを出す方法。

Sub Get_MySheets()
  Dim MyF As Variant
  Dim MyB As Workbook
  Dim i As Long
   
  With Application
   MyF = .GetOpenFilename(MultiSelect:=True)
   If VarType(MyF) = 11 Then Exit Sub
   .ScreenUpdating = False
   .DisplayAlerts = False
  End With
  Set MyB = Workbooks.Add(xlWBATWorksheet)
  For i = LBound(MyF) To UBound(MyF)
   Workbooks.Open MyF(i)
   With ActiveWorkbook
     .Worksheets(1).Copy After:= _
     MyB.Worksheets(MyB.Worksheets.Count)
     .Close False
   End With
  Next i
  MyB.Worksheets(1).Delete
  With Application
   .ScreenUpdating = True
   .DisplayAlerts = True
  End With
End Sub
0 hits

【37664】Excelファイルの結合 VBA初心者 06/5/15(月) 9:16 質問
【37670】Re:Excelファイルの結合 ハチ 06/5/15(月) 10:11 回答
【37677】Re:Excelファイルの結合 Kein 06/5/15(月) 14:51 回答

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