| |
初心者で試行錯誤しているのですが、上手くいかず頭を抱えております。
「H2」が生年月日
「B3」が名字
「D3」が名前
となっており、「生年月日 名字 名前」というファイル名で名前を付けて保存するマクロを、見様見真似で作りました。
最初は、当ファイルと同じフォルダにどんどん保存されていたのですが、今はマイドキュメントフォルダに保存されるようになってしまいました。
元ファイルと同じフォルダを指定して保存するにはどうすればよいでしょうか。
お手数をおかけしますが、どなたかご教授お願いします。
Sub ファイル保存()
Dim wb As Workbook 'ワークブック
Dim ws As Worksheet 'ワークシート
Dim x As String 'H2セル用のフォルダ名用
Dim y As String 'B3セル用のファイル名用
Dim z As String 'D3セル用のファイル名用
'自ワークブック
Set wb = ThisWorkbook
'アクティブシート
Set ws = ActiveSheet
'H2セルの値を変数に
x = ws.Range("H2").Value
'B3セルの値を変数に
y = ws.Range("B3").Value
'D3セルの値を変数に
z = ws.Range("D3").Value
wb.SaveAs Filename:=x & " " & y & " " & z
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
