Excel VBA質問箱 IV

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

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


49449 / 76732 ←次へ | 前へ→

【32193】Re:解決後ですが。
発言  ponpon  - 05/12/8(木) 18:39 -

引用なし
パスワード
   こんにちは。

>京都、大阪・・と順番にファイル名を取得して、ファイルを開けて、

とあるので、Dir関数で取得して処理したらいかがでしょう?
そのフォルダには、マクロを書いたブックと必要なファイルしかないものとします。


Sub test()
  Dim myFile As String
  Dim myVal As String
  Const myPath As String = "C:\回収\"
  
  
  Application.ScreenUpdating = False
  myFile = Dir(myPath & "*.xls")
  Do While myFile <> ""
   Workbooks.Open myPath & myFile
   With ActiveWorkbook
    If .Name <> ThisWorkbook.Name Then
     myVal = Left(.Name, 2)
     .Worksheets(1).Range("CD2", .Cells(.Range("A1").End(xlUp).Row, "CD")) = myVal
     .Close True
    End If
   myFile = Dir()
  Loop
  Application.ScreenUpdating = True
  
End Sub

0 hits

【32172】ファイル名を取得して,ある列に代入するには にしもり 05/12/8(木) 9:13 質問
【32174】Re:ファイル名を取得して,ある列に代入する... にしもり 05/12/8(木) 9:58 質問
【32176】Re:ファイル名を取得して,ある列に代入する... にしもり 05/12/8(木) 10:08 お礼
【32178】解決後ですが。 Jaka 05/12/8(木) 10:20 発言
【32193】Re:解決後ですが。 ponpon 05/12/8(木) 18:39 発言
【32219】Re:解決後ですが。 にしもり 05/12/9(金) 15:22 お礼

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