下記のマクロを実行すると,同じ作業フォルダ内の指定ファイル名に
作業ブックから、指定セル値をコピー出来きます。
コードの「"\【新行政報告】行政報告チェックリスト_Copy.xlsm")」をコピー先のファイルとして指定しております。
【新行政報告】行政報告チェックリスト_Copy.xlsmのgファイル名が物件によって
例えば
「【新行政報告】北海 太郎邸.xlsmとファイル名が変更になります、
先頭の「【新行政報告】」はどのファイルでも変更がありませんので
この部分をワイルドカードを使用して
「【新行政報告】*.xlsm」
と変更出来る方法を教えてください。
よろしくお願いいたします。
現状のマクロです。
Sub 新行政報告に項目コピー()
Dim wsfrom As Worksheet, wsto As Worksheet
Set wsfrom = ThisWorkbook.Sheets("1")
With Workbooks.Open(ThisWorkbook.Path & "\【新行政報告】行政報告チェックリスト_Copy.xlsm")
Set wsto = .Sheets("建築物(確認申請)(第1号様式)")
wsto.Range("C1") = wsfrom.Range("F10").Value
wsto.Range("C2") = wsfrom.Range("F13").Value
wsto.Range("V2") = wsfrom.Range("D39").Value
wsto.Range("B180") = wsfrom.Range("O24").Value
.Save
.Close
End With
End Sub
以上となります。
よろしくお願いいたします。
No.3ベストアンサー
- 回答日時:
>【新行政報告】の付いたファイル名は必ず1つしかありません
そうであれば、以下のようにしてください。
Sub 新行政報告に項目コピー()
Dim fname As String
Dim wsfrom As Worksheet, wsto As Worksheet
fname = Dir(ThisWorkbook.Path & "\" & "【新行政報告】*.xlsm")
If fname = "" Then Exit Sub
Set wsfrom = ThisWorkbook.Sheets("1")
With Workbooks.Open(ThisWorkbook.Path & "\" & fname)
Set wsto = .Sheets("建築物(確認申請)(第1号様式)")
wsto.Range("C1") = wsfrom.Range("F10").Value
wsto.Range("C2") = wsfrom.Range("F13").Value
wsto.Range("V2") = wsfrom.Range("D39").Value
wsto.Range("B180") = wsfrom.Range("O24").Value
.Save
.Close
End With
End Sub
No.2
- 回答日時:
マクロのあるブックと同じフォルダ内に
「【新行政報告】*.xlsm」にマッチするファイルは1つだけでしょうか。
それとも
【新行政報告】行政報告チェックリスト_Copy.xlsm
【新行政報告】北海 太郎邸.xlsm
のように2つ以上存在するケースもあるのでしょうか。
必ず1つだけ存在するのであれば、マクロの修正は可能ですが、
2つ以上存在するのであれば、No1の方が提示されている方法が良いかと思います。
回答ありがとうございます
作業フォルダ内には
【新行政報告】の付いた
ファイル名は必ず1つしかありません
よろしくお願い致します
No.1
- 回答日時:
検証できる環境ではないのですが。
>この部分をワイルドカードを使用して
>「【新行政報告】*.xlsm」
>と変更出来る方法を教えてください。
ブックを開くためには『ある特定のBook名』の指定が必要です。
なのでWith文においてワイルドカードの使用は不可能かなと。
もしおやりにやるなら、
https://excel-ubara.com/excelvba1/EXCELVBA374.html
http://officetanaka.net/excel/vba/tips/tips154.htm
等のようにコード実行者側で選択する必要があるのではないかと。
初級者レベルなので思い付きです。
⇒既存のBookを開くのですよね?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
-
4
VBAコードについて教えてください。
Visual Basic(VBA)
-
5
vba 削除
Visual Basic(VBA)
-
6
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
7
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
8
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
9
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
10
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
11
Excelのマクロについて教えてください。 下記のマクロを実行すると 別ブックに指定セル値をコピーで
Visual Basic(VBA)
-
12
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
13
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
14
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
15
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
16
現在のブックを閉じないで、マクロ抜きの(現在のブックの)コピーを作成したい
Visual Basic(VBA)
-
17
VBAなくなるの?
Visual Basic(VBA)
-
18
エクセルVBA
Visual Basic(VBA)
-
19
for 文の 繰り返し処理に使えるのかどうかについて
Visual Basic(VBA)
-
20
VBAのコードを教えてください
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで複数のコメントのサ...
-
[エクセル]コピーするとオブジ...
-
vbsでExcelのシートをコピーす...
-
FTPとファイルコピーの違いにつ...
-
frxファイルの役目
-
バッチファイル XCOPYで上書き...
-
エクセルのハイパーリンクがコ...
-
4時間
-
同じファイル名 上書きしないフ...
-
vbsでファイルやフォルダのコピ...
-
LAN接続HDD(LinkStation)で削...
-
バッチファイルのコピーで
-
ネットワークドライブのファイ...
-
エクセル2010、図が大きすぎま...
-
サーバへファイルコピーについて
-
パワポでスライドをコピーでき...
-
xcopyでのバッチコピー方法でコ...
-
ページの複製はどうすればいい...
-
vb.net コピーの進捗をプログレ...
-
マインクラフトPCをプレイしよ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで複数のコメントのサ...
-
同じファイル名 上書きしないフ...
-
エクセルのハイパーリンクがコ...
-
Vba初心者です。下記のコード助...
-
frxファイルの役目
-
バッチファイル XCOPYで上書き...
-
エクセル2010、図が大きすぎま...
-
[エクセル]コピーするとオブジ...
-
バッチファイルのコピーで
-
ファイルサーバ上のファイルが...
-
xcopyでのバッチコピー方法でコ...
-
アクセス クエリを別のファイ...
-
vbsでExcelのシートをコピーす...
-
バッチファイル 別ファイルにリ...
-
FTPとファイルコピーの違いにつ...
-
開いている別のファイルにExcel...
-
LAN接続HDD(LinkStation)で削...
-
パワポでスライドをコピーでき...
-
bat 同名ファイルコピー時にリ...
-
ゴミ箱に移動するような削除を...
おすすめ情報