Excel VBA質問箱 IV

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

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


58749 / 76732 ←次へ | 前へ→

【22706】Re:複数ファイルでのデータ
発言  ponpon  - 05/2/28(月) 22:07 -

引用なし
パスワード
   ▼pepper さん:
ponponです。こんばんは。
 手作業でするのをコードにしてみました。
 fileが1から9だとloopできるので、こんな風になります。
 参考にしてください。
Sub test()
Dim A As Range
Application.ScreenUpdating = False
 For i = 1 To 9
  Workbooks.Open Filename:="D:\文書\test\0" & i & ".xls" 'ファイルの場所
  'Workbooks.Open Filename:="D:\文書\test\10.xls"
   With Workbooks("Book1.xls")
     Set A = .Sheets("sheet1").Range("A1")
     A.Value = "file"
     A.Offset(, 1).Value = "H180"
     A.Offset(i, 0).Value = "0" & i
     A.Offset(i, 0).NumberFormatLocal = "@"
     A.Offset(i, 1).Value = Workbooks("0" & i & ".xls").Sheets(1).Range("H180").Value
   End With
  Workbooks("0" & i & ".xls").Close
 
 Next
Application.ScreenUpdating = True

End Sub


>はじめまして。VBA初心者です。
>複数ファイル間でのやりとりについてわかりません。
>
>質問は01〜10までのファイルがあり、一つのファイルに一つのシートと
>なっています。シート名はファイル名と同じです。
>そこでこれらから セルH180 の値をコピーし Book1に
>
>file H180
> 01  123
> 02  155
> 03  193
> …
>
>としたいのですがさっぱりです。どなたかご教示願います。
0 hits

【22692】複数ファイルでのデータ pepper 05/2/28(月) 17:38 質問
【22706】Re:複数ファイルでのデータ ponpon 05/2/28(月) 22:07 発言
【22711】Re:複数ファイルでのデータ かみちゃん 05/3/1(火) 7:33 回答
【22714】Re:複数ファイルでのデータ ichinose 05/3/1(火) 8:17 発言
【22738】Re:複数ファイルでのデータ ponpon 05/3/1(火) 22:35 発言
【22740】Re:複数ファイルでのデータ かみちゃん 05/3/1(火) 22:47 回答
【22741】Re:複数ファイルでのデータ ponpon 05/3/1(火) 22:56 発言
【22849】Re:複数ファイルでのデータ pepper 05/3/4(金) 21:56 お礼

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