1

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

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

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

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

这是我的文件名称和查找路径 processus 的代码：

   '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

“……”

4

1 回答 1

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

于 2020-11-05T00:24:56.410 回答