0

私は、非技術者が Excel ファイルを編集する必要があるプロジェクトに取り組んでいます。

ファイルには 2 つの列が含まれており、1 つはキーで、もう 1 つは値です。キーは整数で、値は html です。技術者ではない人が次の形式でテキスト ファイルを生成する必要があります。

|[key][ tab \t][value]
|[key][ tab \t][value]
|[key][ tab \t][value]

| | html は複数行になる可能性があるため、必要です。

どんな助けでも大歓迎です。

4

1 に答える 1

0

それを機能させるには、VBAを少し塗る必要があるようです。これで始められるはずです。

Sub writeKeysValues()
Dim i As Integer
Dim outFile As String
Dim fNum1 As Integer

'Open file
outFile = "C:\temp\outfile.txt"
fNum1 = FreeFile()
Open outFile For Output As fNum1

'loop through non-blanks
i = 1
With Worksheets("Book1")
    Do Until .Cells(i, 1).Value = ""
        Print #fNum1, "|" & .Cells(i, 1).Value & vbTab & .Cells(i, 2).Value
        i = i + 1
    Loop
End With

'All done
Close #fNum1
End Sub

ノート：

  • ファイルをExcelマクロ対応のスプレッドシート（​​.xlsm）として保存する必要があります。
  • 空白キーで読み取りを停止します。
  • 書き込みはC：\ temp\outfile.txtにハードコードされています。

これはコードデザインコンテストに勝つことはありませんが、パイプとタブを使って希望どおりに書き出す方法がわかるはずです。

于 2013-03-11T15:50:53.297 に答える