在创建的.rtf文件的选定行中打印

Question

我想选择我自动创建的.rtf文件，使用filedialog。

我创建文件的代码如下：

TargetData = Application.GetSaveAsFilename(FileFilter:="AVL (*.rtf), *.rtf", InitialFileName:="AVL.rtf")

要打电话给我，我会采取类似的方式：

Dim fd As FileDialog
fd.Select.Targetdata

你会怎么做？

祝你好运

Answer 1

 Dim s As String
 Dim wb As Workbook
 s = Application.GetOpenFilename("*.rtf,*.rtf", , "Select File Name")
 If Not s = "False" Then
      Set wb = Workbooks.Open(s)
 End If

在这个片段的末尾，wb是Nothing或指向open rtf文件的指针。