投稿日	： 2007/04/25(Wed) 16:28
投稿者	： つよぽん
Ｅメール	：
ＵＲＬ	：
タイトル	： ファイルを変数から読込むのって？

ファイルリストを作成（csv形式）し、リストの先頭に書いてあるファイル名を
変数にファイル名を代入し、変数の値からファイルを読込ませようとしています。
読込み、後処理が終わったら次のファイル名を変数に入れなおし後処理を、、、
順次最終のファイル名まで繰り返そうかと、、、
どなたかご教授願います。

いまこんな感じです。。。
Dim intFileNum As Integer
Dim strFileName As String
intFileNum = FreeFile(y)

'ディレクトリ移動
    ChDir "\\xxxx\xxxx\xxxx\xxxx\xxxx"

'ログデータ格納ファイルオープン
    Workbooks.Open Filename:= _
        "\\xxxx\xxxx\xxxx\xxxx\xxxx\xxxx\xxxxx.csv"

'ファイルリストオープン
    Workbooks.OpenText Filename:= _
        "\\xxxx\xxxx\xxxx\xxxx\xxxx\xxxx\xxxx\ESW_DATA_LIST.csv" _
        , Origin:=932, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:=True

'検索ファイル順指定
Dim 検索ファイルオープン
Range("d2").Select
w = ActiveCell.Value
x = 0
Range("c2").Select
y = ActiveCell.Value
strFileName = ThisWorkbook.Path & "\ｙ"
While x < w
Open strFileName For Input As #intFileNum(y)

ActiveCell.Offset(1, 0).Select
    Windows("xxxx.xls").Activate

y = ActiveCell.Value
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
この下に後処理を記述しています。

★ - ファイルを変数から読込むのって？ - つよぽん 04/25-16:28No.9051
• Re: ファイルを変数から読込むのって？ - Renard 04/25-23:08 No.9058