Excel VBA質問箱 IV

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

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


159 / 73296 ←次へ | 前へ→

【78766】マクロで保存したい
発言  北風  - 17/1/18(水) 13:38 -

引用なし
パスワード
   下記コードでファイル名を付けて保存していますがダイアログボックスが、表示され都度保存ボタンを押しますがマクロで保存するようにしたいのですが。

Sub セルの値をファイル名にする()
Dim fm As String
Dim fs As Variant
ChDrive "S:\TTT\わい\"
ChDir "S:\TTT\わい\"
With ThisWorkbook.ActiveSheet
 fm = .Range("E24").Value & "(" & .Range("H24").Value & ")"
End With
fs = Application.GetSaveAsFilename(fm, "MicrosoftExcelブック(*.xls),*.xls", , "ファイルを保存する", "保存")
If fs = False Then End
ThisWorkbook.SaveAs fs
End Sub

宜しくお願いします

79 hits

【78766】マクロで保存したい 北風 17/1/18(水) 13:38 発言[未読]
【78767】Re:マクロで保存したい β 17/1/18(水) 14:03 発言[未読]
【78768】Re:マクロで保存したい 北風 17/1/18(水) 15:37 発言[未読]
【78769】Re:マクロで保存したい β 17/1/18(水) 18:15 発言[未読]
【78770】Re:マクロで保存したい β 17/1/18(水) 18:16 発言[未読]
【78771】Re:マクロで保存したい 北風 17/1/19(木) 13:46 お礼[未読]

159 / 73296 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free