Excel VBA質問箱 IV

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

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


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

2045 / 76734

←次へ　｜　前へ→


	【80333】Re:vba詳しい方、お力貸してください

マナ - 19/1/26(土) 0:44 -


	引用なし

	パスワード

▼ミリヤさん：

>上記をまず、一つのコードにしたいです。

１人分だけコピーするなら
こんな感じでできませんか。

Sub test()
　　Dim myPath As String
　　Dim fName As String
　　Dim wb勤務 As Workbook
　　Dim wb管理 As Workbook

　　myPath = "C:\Users\user\Desktop\〇〇さんへ\12月\"
　　fName = Dir(myPath & "*勤務表*.xlsx")
　　Set wb勤務 = Workbooks.Open(myPath & fName)

　　myPath = "C:\Users\user\Desktop\〇〇さんへ\管理用勤務表\"
　　Set wb管理 = Workbooks.Open(myPath & "【管理用】" & fName)

　　wb勤務.Sheets("12月").Copy Before:=wb管理.Sheets(11)
　　
　　wb勤務.Close False
　　wb管理.Close True

End Sub

　

8 hits

▼

【80330】vba詳しい方、お力貸してください ミリヤ 19/1/25(金) 10:32