Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

39814 / 76732

←次へ　｜　前へ→


	【42024】転記について勉強中です

あみん - 06/8/29(火) 22:42 -


	引用なし

	パスワード

フォルダに10個ほどのファイルがあります。
各ファイルのSheet1のA1：A10には日にち（例：16日）が入っており
B1：B10には金額（例：\12000)が入っています。
もし検索で16日があれば
worksheets("宿泊")、なければworksheets("確認")のA列に
ファイル名を、金額をB列に書いていきたいのです。

書ける部分は書いてみたのですが・・・
どうすればよいのでしょうか？
ご教授おねがいします。

Sub 転記()
　　Dim thname As String
　　Dim theDir As String
　　Dim thebk As Workbook
　　Dim flg As Boolean
　　
　　Application.ScreenUpdating = False
　　theDir = "\\cara\コンビ\料金一覧"
　　thname = Dir(theDir & "\*.xls")
　　
　　Do While thname <> ""
　　Set thebk = Workbooks.Open(theDir & "\" & thname)
　　Call sub転記(thebk, flg)
　　thebk.Close savechanges:=False
　　thname = Dir
　　Loop
End Sub

Sub sub転記()
　　Dim XXX As Variant
　　
　　Set XXX = thebk.Worksheets("Sheet1").Range("A1:A10").Find(what:="16日", LookIn:= Values, lookat:=xlWhole)
　　
　　　
　　　 'もし16日が見つかればファイル名を宿泊シートに、見つからなければ確認　　　　　シートに転記する

　　
End Sub

2 hits

▼

【42024】転記について勉強中です あみん 06/8/29(火) 22:42

≪