Excel VBA質問箱 IV

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

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


53622 / 76732 ←次へ | 前へ→

【27922】Re:ファイルが作成されない
発言  Jaka  - 05/8/24(水) 12:46 -

引用なし
パスワード
   こんにちは。
取りあえず自分の環境に合わせて試してみましたが動きました。
意味の無い所はコメントにしましたが.....。
また、定数の宣言しているのに何でそれを使わないのでしょうか?
全部修正しようと思いましたが、1部だけにして原文と同じようにしました。

Private Sub CommandButton1_Click()
Dim mySheet As Worksheet

  Set mySheet = ActiveWorkbook.Worksheets("送品明細")
  mySheet.Copy
  MsgBox "新規ブックにシートをコピーしました"


  Dim WshShell As Object
  Dim MyF As String
 
  Set WshShell = CreateObject("WScript.Shell")

  WshShell.CurrentDirectory = "\\JPSFOL_svr1\D\Jaka\"

'Const myDir As String = "\\123.456.78.9\製造課\送品明細書\"
Const myDir As String = "\\JPSFOL_svr1\D\Jaka\MkDirTEST\"
If Dir(myDir, vbDirectory) = vbNullString Then _
      MkDir myDir
  
    'With Application
    '  .DisplayAlerts = False
    'With Application
    '  .DisplayAlerts = True
    'End With
    'End With
  
   Set WshShell = CreateObject("WScript.Shell")
  'WshShell.CurrentDirectory = "\\123.456.78.9\製造課\送品明細書\"
  WshShell.CurrentDirectory = myDir

Const myPath As String = "\\JPSFOL_svr1\D\Jaka\MkDirTEST\"
Dim myFileName As String
  
    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
0 hits

【27916】ファイルが作成されない tt 05/8/24(水) 10:33 質問
【27919】Re:ファイルが作成されない りん 05/8/24(水) 11:37 発言
【27922】Re:ファイルが作成されない Jaka 05/8/24(水) 12:46 発言

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