将字符串值导出到 .txt 文件答案

【问题标题】：Export string values to .txt file将字符串值导出到 .txt 文件
【发布时间】：2021-02-17 14:25:02
【问题描述】：

我从 VBA 开始，为了我的工作，我必须分析 excel 表格并将我的简历导出到 .txt 文件。

我能够创建我的保存文件的名称（“NomFichier”） - 是的，它是法语；） - 以及通过选择保存文件的位置（“Emplacement”）来创建我的路径

在我的分析过程中，我将我的值存储到一个字符串中（“Hor (30)”）

我现在正在寻找使用文件的路径和名称将字符串的值导出到 .txt 文件的方法...有人可以帮助我吗？

这是我的文件名和查找路径过程的代码：

   'Nom du tableau deviens nom du fichier .txt
   'Name of the file to be save

    Dim NomFichier As String
    NomFichier = Tableau_X & "_" & Titre
    
    'Emplacement du fichier txt à enregistrer
    'Location of the file to be save

    Dim Emplacement As String
    Dim diaFolder As FileDialog

    Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)
    diaFolder.AllowMultiSelect = False
    diaFolder.Show
    Emplacement = diaFolder.SelectedItems(1)
    Set diaFolder = Nothing

“……”

【问题讨论】：

标签： vba string printing export txt

【解决方案1】：

要写入文本文件，您需要文件路径（您拥有的）和下一个可用的文件编号，这很容易获得。然后你“打开”文件号进行修改。

Dim fileNum As Integer

fileNum = FreeFile

Open Emplacement For Output As fileNum
Print #fileNum, "write your information here"
Close fileNum

您可以根据需要使用任意数量的Print 语句，或者将数组与循环一起使用，或使用各种其他方式来添加数据。 #fileNum 是指您使用 Print 语句修改的文件，下一位可以是变量或硬编码。

此代码创建一个新文件，但您可以使用 Input 从文件中读取数据，并使用 Append 添加到现有文件中。您可以在此处阅读有关文件交互方式的更多信息：https://www.thespreadsheetguru.com/blog/vba-guide-text-files

【讨论】：