Excel VBA質問箱 IV

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

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


53626 / 76732 ←次へ | 前へ→

【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先にファイルが作成されません。
間違いに思い当たるふしがないのですが....。
宜しくお願い致します。

1 hits

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

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