| |
batファイルで複数ファイルを１つにした後、そのファイルを開こうと
すると、ファイルが見つかりませんとエラーが出ます。デバッグで
VBエディタ(?)を開いて、そのまま「実行」ボタンを押すと
エラーなく終了します。
ファイルが出来るのに、タイムラグがあるのかと思い、
ファイル作成できたのを確認するVBAを間に入れたのですが、
(他の人に作ってもらった)
同じエラーが出ます。どこが間違っているのかが分かりません。
ご教授いただけないでしょうか。。。困っています。
'======================================================================
Sub main()
> 略
ひとつのcsvを作成
csv完成待ち
パラメータファイル分割
End Sub
'--------------------------------------------------------------------------
Private Sub ひとつのcsvを作成()
Dim bbb
bbb = Shell(パス & "gattai.bat")
'
End Sub
'--------------------------------------------------------------------------
Private Sub csv完成待ち()
Dim L_i As Integer 'ループカウンタ
Dim newHour As Integer
Dim newMinute As Integer
Dim newSecond As Integer
Dim waittime As Integer
Dim a As String
L_i = 1
For L_i = 1 To 6 '最大１分まで待たせます♪
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 5
waittime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waittime
a = Dir(パス & "printer.csv") '例）a = Dir("c:\ftp\test01.txt")
If a = "printer.csv" Then '例）a = "test01.txt"
Exit For
End If
Next
End Sub
'--------------------------------------------------------------------------
Private Sub パラメータファイル分割()
Dim InputFileName As String 'inputとなるcsvファイル
Dim OutputFileName1 As String '追加のとき用
Dim OutputFileName2 As String '削除のとき用
Dim InputLine As String '入力ライン
Dim L_i As Long 'ループカウンタ
L_i = 1
'プリンタファイル分割****
InputFileName = (パス & "printer.csv")
OutputFileName1 = (パス & "addprinter.csv")
OutputFileName2 = (パス & "delprinter.csv")
'＊＊＊ここでエラーが出ます！＊＊＊＊
Open InputFileName For Input As #1
"＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
Open OutputFileName1 For Output As #2
Open OutputFileName2 For Output As #3
For L_i = 1 To 99999
Line Input #1, InputLine
If EOF(1) = True Then: Exit For 'EOFでループ終了♪
Select Case Left(InputLine, 2)
Case "追加"
Print #2, Mid(InputLine, 4, 999)
Case "削除"
Print #3, Mid(InputLine, 4, 999)
End Select
Next
Close #1, #2, #3
>>略
End Sub
'==========================================================================
始めのbatファイルの中身は
C:
CD C:\sinsei\work
type printer\*.csv > printer.csv
となっています。
変数などは間違ってないと思います。
よろしくお願いします。
|
|
VBA素人
- 04/4/13(火) 10:42 -
