在 Excel 中,我在 A 列中有一个文章名称列表,在 B 列中有一个免责声明。现在,对于 A 列中的每篇文章,我想创建一个文本文件,A 是文件的标题,B 是文件的标题。免责声明是文件的内容。
这可能吗?
我的想法是,我有数百个这样的东西,我想让自己变得更容易。
如果 Excel 不适合此操作,有人可以建议替代方案吗? (Notepad++ 可能有一个可以提供帮助的功能?)
Sub Export_Files()
Dim sExportFolder, sFN
Dim rArticleName As Range
Dim rDisclaimer As Range
Dim oSh As Worksheet
Dim oFS As Object
Dim oTxt As Object
'sExportFolder = path to the folder you want to export to
'oSh = The sheet where your data is stored
sExportFolder = "C:\Disclaimers"
Set oSh = Sheet1
Set oFS = CreateObject("Scripting.Filesystemobject")
For Each rArticleName In oSh.UsedRange.Columns("A").Cells
Set rDisclaimer = rArticleName.Offset(, 1)
'Add .txt to the article name as a file name
sFN = rArticleName.Value & ".txt"
Set oTxt = oFS.OpenTextFile(sExportFolder & "\" & sFN, 2, True)
oTxt.Write rDisclaimer.Value
oTxt.Close
Next
End Sub
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)