エクセルVBA ファイル名操作
エクセルマクロのコードにおきまして
「フォルダの選択」ダイアログから
エクセルファイル
123.xlsxを例えば 開くときに
それをa.xlsxという名前に変えて
以下のそれに続くVBAコードにおいて
a.xlsxを操作したいのですが、
a = Application.GetOpenFilename()
Workbooks.Open a
これを実行すると求めるダイアログが表示されて
使いたい123.xlsxを開くをクリックしますが
これでは123.xlsxがa.xlsxにはなりません
このa.xlsxのファイル名で別途ファイル作成する方法を
御教示いただけると助かります
よろしくお願いします
win10 office365
コードは以下 部分ですが
こういう流れで作成したい所存です
Sub あいう()
a = Application.GetOpenFilename()
Workbooks.Open a
'b.xlsxファイルを新規作成
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="C:\Users\USER\Desktop\あいう\b.xlsx", FileFormat:=xlXMLSpreadsheet
'a.xlsxファイルの1行目のA1～AG1のセルの値をコピー
Workbooks("a.xlsx").Worksheets("Sheet1").Range("A1:AG1").Copy
'b.xlsxファイルのA3～AG3のセルに貼り付け
Workbooks("b.xlsx").Worksheets("Sheet1").Range("A3:AG3").PasteSpecial xlPasteValues
以下省略
よろしくお願いします
お礼
回答感謝します。 個人レベルで作成されたマクロファイルとの回答ですね。