-6

いくつかの値を含むテキスト ファイルがあり、これらの値を xls に入力する必要があります。マクロを使用してそれを行うにはどうすればよいですか。以下のようなテキストファイルがあるとします。

ファイル名 - data.txt

Records received in CIF file : 2682
Records loaded in CIF table : 2682
count : 2682

そして、私はxls形式を持っています

File name:  Output.csv                      
Load summary:                           
    "(A)
Records received in CIF file"   "(B)
Records loaded in CIF table (temp_location)"    "(C)
Records failed to load" 
    2682    2682    2682

上記のように2682を出力ファイルに入力する必要がありますが、xls. ここでは、マイクロを使用して、xls に値を入力する必要があるときはいつでも、マクロを実行してそれを実行し、値が自動的に xls に入力されるようにします。

4

1 に答える 1

2

したがって、コードは次のことを行う必要があります。

  1. データ ファイルを開き、 FileSystemObject を使用します。MSDN ライブラリ: FileSystemObjectを参照してください。
  2. テスト ファイル内のデータ行を読み取るループを開始します ( MSDN ライブラリ: VBA でループ構造を使用する方法を参照してください)。
  3. CIF ファイル : で受信したレコードの末尾のファイルを読み取り、その後の値を取得します。MSDN ライブラリ: OpenAsTextStream メソッドおよびMSDN ライブラリ: FSO ReadLine メソッドを参照してください。文字列操作については、 Excel の学習: 文字列操作およびExcel VBA: 文字列操作を参照してください。もちろん: MSDN ライブラリ: VB6/VBA 文字列関数リファレンスも参照してください。
  4. 文字列から数字を取得する
  5. その数値を結果ワークシートに入力します ([セルと範囲を参照する方法Excel 2003 VBA 言語リファレンスおよびMS Excel Visual Basic リファレンスを参照してください) 。
  6. 次のループ ステップ 2 に戻る
  7. Saveメソッドを使用してワークシートを保存します( MSDN ライブラリ: Excel ワークブックの Save メソッドを参照してください)。

その読書はあなたを始めるはずです

問題や質問がある場合は、コードを書いてみた後にお知らせください

フィリップ

于 2013-04-08T13:32:50.463 に答える