vba - 如何使用 VBA 在文本文件中的句子(用破折号)下划线

Question

请问如何使用 Excel VBA 在文本文件中输出或打印一条线/破折号(例如 ---------------)作为下划线。我正在从 Excel 创建一个日志文件到外部文件中。我想用几个破折号(------)在每行下划线，如下所示。我在一个网站“Excel的每日剂量”上看到了一段vba代码:String(60, "-")，但它不起作用。

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 as String”定义为“Dim Mystring as String”。

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

输出