Excel VBA質問箱 IV

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

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


9339 / 13644 ツリー ←次へ | 前へ→

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

【27916】ファイルが作成されない
質問  tt  - 05/8/24(水) 10:33 -

引用なし
パスワード
   Sub ボタン1_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 = "\\123.456.78.9\製造課\"
  
Const myDir As String = "\\123.456.78.9\製造課\送品明細書\"
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\製造課\送品明細書\"
    
Const myPath As String = "\\123.456.78.9\製造課\送品明細書\"
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

↑上記の内容で、指定したIP先にファイルが作成されません。
間違いに思い当たるふしがないのですが....。
宜しくお願い致します。

【27919】Re:ファイルが作成されない
発言  りん E-MAIL  - 05/8/24(水) 11:37 -

引用なし
パスワード
   tt さん、こんにちわ。

>    With Application
>      .DisplayAlerts = False
>    With Application
>      .DisplayAlerts = True
>    End With
>    End With
ここで何をしたいかがわからないのはさておき。

ファイル名選択のダイアログが無事に表示されているのならば、

>    If myFileName = "False" Then
>      Exit Sub
>    Else
>      With Application
>        .DisplayAlerts = False
ここのアラート解除を一旦ナシにして、メッセージを確認してみてはどうでしょう?

>        ActiveWorkbook.SaveAs myFileName

>        .DisplayAlerts = True
>      End With
>    End If
>End Sub
 そのメッセージの内容(エラーの内容かもしれない)を書くと返事がつきやすいと思います。

【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

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