Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3507 / 76735

←次へ　｜　前へ→


	【78857】Re:ファイル移動

ピアニッチ - 17/2/11(土) 23:16 -


	引用なし

	パスワード

ご教授の程、よろしくお願いします。

Sub 転送()
　　Dim myFso As Object
　　Dim path1 As String
　　Dim path2 As String
　　Dim path3 As String
　　Dim day As String
　　Dim oFilN1 As String
　　Dim nFilN1 As String
　　Debug.Print
　　Set myFso = CreateObject("Scripting.FileSystemObject")
　　'移動元ファイルの検索と移動先の指定
　　path1 = Range("C12")
　　day = InputBox("日付を入力して下さい")
　　If day <> Empty Then
　　　　day = CInt(day)
　　Else
　　　　Exit Sub
　　End If
　　oFilN1 = Dir(path1 & "\" & day & "\" & "N1.jpg")
　　nFilN1 = Workbooks("起動シート.xls").path
　　MsgBox oFilN1

　　
　　If Not myFso.fileExists(filespec:=oFilN1) Then
　　　 myFso.MoveFile oFilN1, nFilN1
　　End If
　　Set myFso = Nothing
End Sub
　　

1 hits

▼

【78852】ファイル移動 ピアニッチ 17/2/11(土) 19:26