Excel VBA質問箱 IV

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

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


72949 / 76732 ←次へ | 前へ→

【8266】Re:Activeworkbook.Nameの変更
お礼  テーブル E-MAIL  - 03/10/6(月) 15:35 -

引用なし
パスワード
   ▼INA さん:
いつも回答ありがとうございます。Getsaveasから、週末に本で、色々調べまして、下記の内容にてやりたい事ができました。 

Sub 途中保存()

Const myPath As String = ”アドレス”
Dim myFileName As String

    ChDrive myPath
    ChDir myPath
    
    myFileName = Application.GetSaveAsFilename _
      (ActiveWorkbook.Name, "Excelファイル(*.xls),*.xls")
    If myFileName = "False" Then
      Exit Sub
    Else
      With Application
        .DisplayAlerts = False
        ActiveWorkbook.SaveAs myFileName
        .DisplayAlerts = True
      End With
    End If
End Sub

1 hits

【8198】Activeworkbook.Nameの変更 テーブル 03/10/3(金) 16:08 質問
【8199】Re:Activeworkbook.Nameの変更 テーブル 03/10/3(金) 16:24 質問
【8200】Re:Activeworkbook.Nameの変更 INA 03/10/3(金) 16:27 回答
【8201】Re:Activeworkbook.Nameの変更 INA 03/10/3(金) 16:30 回答
【8202】Re:Activeworkbook.Nameの変更 テーブル 03/10/3(金) 16:55 質問
【8204】Re:Activeworkbook.Nameの変更 INA 03/10/3(金) 16:58 回答
【8205】Re:Activeworkbook.Nameの変更 テーブル 03/10/3(金) 17:13 お礼
【8206】Re:Activeworkbook.Nameの変更 INA 03/10/3(金) 17:19 回答
【8207】Re:Activeworkbook.Nameの変更 テーブル 03/10/3(金) 18:00 お礼
【8203】Re:Activeworkbook.Nameの変更 Kein 03/10/3(金) 16:56 回答
【8208】Re:Activeworkbook.Nameの変更 テーブル 03/10/3(金) 18:02 お礼
【8209】Re:Activeworkbook.Nameの変更 INA 03/10/3(金) 18:12 回答
【8266】Re:Activeworkbook.Nameの変更 テーブル 03/10/6(月) 15:35 お礼
【8267】Re:Activeworkbook.Nameの変更 INA 03/10/6(月) 16:10 発言

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