0

まあ言ってみれば：

  1. Excel スプレッドシートに 1,000 行の個別の情報があります。(1列1,000行)

  2. 100行ごとに独自のファイル名で保存したい。( workbook1.txt、workbook2.txt、workbook3.txtなど)

現在、私はこれを手動で行っています：

  • 100 行を強調表示します。
  • Control+ C(コピー)、Control+ (新規) を使用Nして新しいファイルを作成し、次にControl+ V(貼り付け)、Control+を使用してファイルを保存し、+Sを使用したときに割り当てられたデフォルト名でファイルに名前を付けます。...ControlNworkbook1workbook2workbook3

それらをテキスト ファイル (.txt) として保存しています。

このプロセスを自動化することは可能ですか?おそらくbatファイルか何か?

4

3 に答える 3

1

次のような単純な VBA スクリプトを使用できます。

Dim counter As Integer
counter = 0
Do While counter < 10
Range("A1:A100").Select
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:="C:\test" & CStr(counter) & ".txt", _
    FileFormat:=xlTextMSDOS, CreateBackup:=False
Sheets("Sheet1").Select
Range("A101:A1000").Select
Selection.Cut
Range("A1").Select
ActiveSheet.Paste
counter = counter + 1
Loop

xlTextMSDOS として保存すると、アクティブなシートのみが保存されるため、新しいワークブックを作成する必要はありません。

于 2014-07-24T08:32:55.880 に答える