Vba 将字符串值导出到.txt文件
我从VBA开始,为了我的工作,我必须分析excel表格并将我的简历导出到.txt文件 我能够创建保存文件的名称(“NomFichier”)-是的,它是法语;)-以及通过选择保存文件的放置(“放置”)来选择我的路径 在分析过程中,我将值存储到字符串(“Hor(30)”) 我现在正在寻找使用文件的路径和名称将字符串的值导出到.txt文件的方法…有人能帮我吗 以下是文件名和查找路径processus的代码:Vba 将字符串值导出到.txt文件,vba,string,printing,export,txt,Vba,String,Printing,Export,Txt,我从VBA开始,为了我的工作,我必须分析excel表格并将我的简历导出到.txt文件 我能够创建保存文件的名称(“NomFichier”)-是的,它是法语;)-以及通过选择保存文件的放置(“放置”)来选择我的路径 在分析过程中,我将值存储到字符串(“Hor(30)”) 我现在正在寻找使用文件的路径和名称将字符串的值导出到.txt文件的方法…有人能帮我吗 以下是文件名和查找路径processus的代码: 'Nom du tableau deviens nom du fichier .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
“…”要写入文本文件,您需要文件路径(您有)和下一个可用的文件号,这很容易获取。然后“打开”文件号进行修改
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
添加到现有文件中。您可以在此处阅读有关与文件交互方式的更多信息: