|
发表于 2023-3-26 07:18
来自手机
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Sub txt()
Dim fso As Object, sFile As Object
Dim FileName As String, cTxt$
Application.ScreenUpdating = False
Set fso = CreateObject("Scripting.FileSystemObject")
If Cells(1, 1) <> "" Then '忽略空行
fold = "d:\" & Cells(1, 1).Value
If Dir(fold, vbDirectory) = "" Then MkDir fold
FileName = "d:\内容\" & Cells(1, 1) & ".txt"
Set sFile = fso.CreateTextFile(FileName)
cTxt = ActiveSheet.Cells(1, 1).Value
sFile.Write cTxt
Shell ("NotePad.exe " & FileName)
End If
Application.ScreenUpdating = True
End Sub |
|