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 定义为字符串”。

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

输出