Excel VBA質問箱 IV

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

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


42645 / 76732 ←次へ | 前へ→

【39150】Re:シートを連続して結合するには
お礼  つか E-MAIL  - 06/6/19(月) 11:35 -

引用なし
パスワード
   ▼Blue さん:
早速のご回答ありがとうございます。
実は全くの初心者ですので、WEBにあった下記のプログラムを実行
しましたが、次々とファイル開くのみで、結合させていく
ことが出来ません。ちなみにファイル名もシート名も一意ではありません。


Dim wb As Workbook
 Dim ws As Worksheet
 Dim i As Long
 With Application.FileSearch
   .LookIn = "C:"       'フォルダーのパス
   .Filename = "*.xls"
   If .Execute > 0 Then
     For i = 1 To .FoundFiles.Count
       Set wb = Workbooks.Open(Filename:=.FoundFiles(i))
        For Each ws In wb.Worksheets
             
          'ここでファイルを結合させるコーディング

        Next ws
        wb.Close False
     Next i
   Else
     MsgBox "指定されたフォルダには、Excelファイルなし"
   End If
 End With

End Sub

2 hits

【39147】シートを連続して結合するには つか 06/6/19(月) 11:08 質問
【39149】Re:シートを連続して結合するには Blue 06/6/19(月) 11:15 発言
【39150】Re:シートを連続して結合するには つか 06/6/19(月) 11:35 お礼
【39154】Re:シートを連続して結合するには Blue 06/6/19(月) 11:41 発言
【39156】Re:シートを連続して結合するには つか 06/6/19(月) 11:52 お礼
【39159】Re:シートを連続して結合するには Blue 06/6/19(月) 13:22 発言
【39163】Re:シートを連続して結合するには つか 06/6/19(月) 14:32 お礼
【39164】Re:シートを連続して結合するには Blue 06/6/19(月) 14:37 質問
【39169】Re:シートを連続して結合するには つか 06/6/19(月) 15:03 発言
【39171】Re:シートを連続して結合するには Blue 06/6/19(月) 15:28 発言
【39172】Re:シートを連続して結合するには つか 06/6/19(月) 15:37 お礼
【39178】Re:シートを連続して結合するには Blue 06/6/19(月) 15:53 発言
【39189】Re:シートを連続して結合するには つか 06/6/19(月) 16:39 お礼
【39190】Re:シートを連続して結合するには Blue 06/6/19(月) 16:42 質問
【39193】Re:シートを連続して結合するには Blue 06/6/19(月) 16:57 発言
【39194】Re:シートを連続して結合するには つか 06/6/19(月) 17:01 お礼
【39199】Re:シートを連続して結合するには Blue 06/6/19(月) 17:29 発言
【39200】Re:シートを連続して結合するには Blue 06/6/19(月) 17:33 発言
【39204】Re:シートを連続して結合するには つか 06/6/19(月) 18:29 お礼
【39195】Re:シートを連続して結合するには Kein 06/6/19(月) 17:01 発言
【39291】Re:シートを連続して結合するには つか 06/6/21(水) 16:23 お礼

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