下記のマクロを記述を記載していますが
Open path + finame For Input As #1→でファイルがありませんという
エラーがでます。c:\aa着色加工計画\testにファイル(T_Sort.csv)はあるみたいなのですが
教えてください。何が原因でしょうか
Sub Do_shukei()
Dim 処方(1) As String, 品名(1) As String
Dim 倉庫(1) As String
Dim tuki(15) As String, sort(1) As String, st As Integer
Dim sihan(8) As Long, zaiko As Long, suryo(15) As Long
Dim ryo(6) As Long, a As Integer, i As Integer
Dim path As String, finame As String, foname As String
st = 1
a = 1
For i = 1 To 15
suryo(i) = 0
Next i
path = "c:\aa着色加工計画\test"
finame = "T_Sort.csv"
foname = "T_shukei.csv"
Open path + foname For Output As #2
Open path + finame For Input As #1
Do Until EOF(1) = True
If a = 1 Then
Input #1, sort(0), 倉庫(0), 処方(0), 品名(0), tuki(1), tuki(2), tuki(3), tuki(4), tuki(5), tuki(6), tuki(7), tuki(8), tuki(9), tuki(10), tuki(11), tuki(12), tuki(13), tuki(14), tuki(15)
Write #2, sort(0), 倉庫(0), 処方(0), 品名(0), tuki(1), tuki(2), tuki(3), tuki(4), tuki(5), tuki(6), tuki(7), tuki(8), tuki(9), tuki(10), tuki(11), tuki(12), tuki(13), tuki(14), tuki(15)
a = 0
GoTo l
下記省略
No.1ベストアンサー
- 回答日時:
path = "c:\aa着色加工計画\test"
はフォルダですよね。
Open path & "\" & foname For Output As #2
Open path & "\" & finame For Input As #1
foname も変な指定になっているはずです。
No.2
- 回答日時:
こんにちは。
maruru01です。原因はNo.1の方の通りなので、ちょっと付け足しですが。
フォルダ名は、今回のように直接パスを書く場合以外にも、関数などで取得する場合もあります。
その場合、取得するフォルダ名はドライブ名(c:\)のように末尾に"\"が付く場合と、付かない場合があります。そこで下記のような処理を常にすると、今回のようなエラーは出なくなります。
If Right(path, 1) <> "\" Then
path = path & "\"
End If
では。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:48
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Excel(エクセル) マクロでテキストファイルを読み込んだ際の最終セルにデータと改行が含まれる問題の改善方法 2 2022/03/25 16:50
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
VBA 最新のフォルダ取得
-
Excelで指定したフォルダに保存...
-
デスクトップの画像をhtmlに表...
-
サーバ内のフォルダ名と各フォ...
-
VBSでファイル名と同じフォルダ...
-
windowsでテキストファイルの各...
-
フォルダにリンクを貼りたい
-
ファイル名と同名のフォルダを...
-
AIX findコマンド
-
META-INFフォルダの置き場所に...
-
フォルダ選択ダイアログ:ネッ...
-
vbsで選択ダイアログを表示した...
-
フルパスから指定階層目のフォ...
-
ACCESS VBAからのファイル削除
-
excel VBA Dirにて検索したフォ...
-
ホームページビルダーで新しい...
-
多量のファイルをフォルダに自...
-
Excelのハイパーリンクについて...
-
Excel VBA 同じ名前のフォルダ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
パス名に2バイト文字(マルチバ...
-
ファイル名と同名のフォルダを...
-
VBA 最新のフォルダ取得
-
Excelのハイパーリンクについて...
-
デスクトップの画像をhtmlに表...
-
ディレクトリ名変更してコピー...
-
VBA フォルダ名に特定の文字を...
-
バッチファイルで指定フォルダ...
-
フォルダ内のPDFファイル名を変...
-
Access VBA で フォルダ権限...
-
excelマクロ 冒頭3文字が一致す...
-
【マクロ】ファイル名の日付に...
-
フォルダにリンクを貼りたい
-
会社のネットワーク上のファイ...
-
多量のファイルをフォルダに自...
-
C ファイル出力で、フォルダが...
-
保存先のフォルダ名を指定した...
-
vbsで選択ダイアログを表示した...
-
Excel VBA 同じ名前のフォルダ...
おすすめ情報