如何使用VBA在文本文件中用下划线（带破折号）

Question

请问如何使用excel vba输出或打印行/短划线（例如---------------）作为文本文件中的下划线。我正在从excel创建一个日志文件到外部文件。我想用几个短划线（------）为每一行加下划线，如下所示。我在一个网站上看到了一个vba代码：字符串（60，“ - ”）“每日剂量的excel”，但它没有用。

Sheet1$D$16 Changed:  13 Jul 2013 15:01:14
------------------------------------------
Sheet1$B$21 Changed:  13 Jul 2013 15:04:04
------------------------------------------

我想我已经设法使用下面的函数来解决它

Application.WorksheetFunction.Rept("-", 65)

另一个例如Mystring = String（65，“ - ”）对我不起作用。我将“Dim Mystring定义为字符串”。

Answer 1

尝试以下代码

Sub LogInformation()
    Const LogFileName As String = "D:\TEXTFILE.LOG"
    Dim LogMessage As String
    Dim FileNum As Integer
    LogMessage = "This is a test run"
    FileNum = FreeFile    ' next file number
    Open LogFileName For Append As #FileNum    ' creates the file if it doesn't exist
    Print #FileNum, LogMessage    ' write information at the end of the text file
    Print #FileNum, Application.Rept("-", 65)
    Close #FileNum    ' close the file
End Sub

<强>输出