[[20190320152116]] 『【マクロ】新規保存のフォルダ先を別ブックから取』(もずく) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『【マクロ】新規保存のフォルダ先を別ブックから取得』(もずく)

「マクロ修正.xlsm」のマクロで「一覧.csv」を修正後、「名前を付けて保存」したいのですが、その保存先を「マクロ修正.xlsm」の「B1」と「B2」から取得するには、どのようなマクロコードになるでしょうか?
■保存先は「C:temp¥完成」フォルダに修正後の「一覧.csv」を格納

■マクロ修正.xlsm---------
A列       B列
格納先     C:temp
フォルダ名   一覧


このようなマクロを書いてみたのですが、もう分からなくて。。
ActiveWorkbook.SaveAs Filename:= _

    Windows("マクロ修正.xlsm").Activate
    Range("B1")& "\" & "完成" & "\" & Range("B2").Value & ".csv", _
    FileFormat:=xlCSV, CreateBackup:=False

お手数お掛けしますが、宜しくお願い致します。

< 使用 Excel:Excel2013、使用 OS:Windows10 >


 dim ws as worksheet
 set ws=workbooks("マクロ修正.xlsm").sheets("シート名") '<- 要変更
 等にして

 ActiveWorkbook.SaveAs Filename:= _ 
    ws.Range("B1")& "\" & "完成" & "\" & ws.Range("B2").Value & ".csv", _
    FileFormat:=xlCSV, CreateBackup:=False

 Range/Cellsは親オブジェクトが省略された場合シートのコードモジュールに書かれていなければActiveSheetを参照します。
(seiya ) 2019/03/20(水) 15:49

出来ました!!
ありがとうございます。助かります。
(もずく) 2019/03/20(水) 17:25

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.