0

ここに私が書いた小さなスクリプトがあります：

    Option Explicit
Dim strFileFullName As String
Sub saveToText()
Open "PATH\File.txt" For Append As #1
Print #1, strFileFullName = ActiveWorkbook.FullName
Print #1, Sheets("Overview").Range("D14").Text
Close #1
End Sub

また、Excel ワークブックにないテキストを .txt ファイルに追加したいと思います。どうすればそれを行うことができますか？ありがとう！

4

1 に答える 1

4

VB では、比較演算子と代入演算子を区別していません。つまり、両方=です。この場合、false を返す比較演算子として解釈されます。(これを C と比較してください。ここで、比較演算子は==であり、代入演算子は=です。ここでしようとしていることは、C でインライン代入として機能します)。

そこに追加の変数が必要なようには見えないので、次のようにするだけで済みます。

Print #1, ActiveWorkbook.FullName

または、2 つのステートメントを使用します (VB はこれを比較ではなく代入として認識します)。

strFileFullName = ActiveWorkbook.FullName
Print #1, strFileFullName

テキストの追加は、別の print ステートメントを追加するのと同じくらい簡単です。

Print #1, "Lorem ipsum dolor"
于 2013-01-16T17:27:36.603 に答える