Question

我正在尝试使用Excel VBA自动保存文件。我需要使用以下文件保存文件：

（1）按日期的动态名称：XYZ和今天的日期（例如“ XYZ 20180825”）

（2）静态位置：假设我需要将文件保存在目录“ C：\ Program Files”中

我想知道如何在VBA中反映出来。

Answer 1

这里是速成班，对不起，您的语言混搭...

创建和写入文件

Sub SchreibeDatei()
Dim strDateiname As String, strDateipfad As String

strDateiname = Date & Time & "test.txt"
strDateipfad = ThisWorkbook.Path & "\" & strDateiname

' Datei erzeugen und/oder schreiben
Open strDateipfad For Output As #1
        Print #1, ""
        Print #1, ""
Close #1
End Sub

附加到现有文件

Sub ErweitereDatei()
Dim strDateiname As String, strDateipfad As String

strDateiname = "test.txt"
strDateipfad = ThisWorkbook.Path & "\" & strDateiname

Open strDateipfad For Append As #1
        Print #1, ""
Close #1
End Sub

读取文件

Sub LeseDatei()
Dim strDateiname As String, strDateipfad As String
Dim strZeile As String, strInhalt As String

strDateiname = "test.txt"
strDateipfad = ThisWorkbook.Path & "\" & strDateiname

' Datei zeilenweise lesen
Open strDateipfad For Input As #1
While Not EOF(1)                                ' EOF = EndOfFile
    Line Input #1, strZeile
    strInhalt = strInhalt + strZeile & Chr(10)
Wend
Close #1

MsgBox strInhalt
End Sub

删除文件

Sub LoescheDatei()
Dim strDateiname As String, strDateipfad As String

strDateiname = "test.txt"
strDateipfad = ThisWorkbook.Path & "\" & strDateiname

Kill(strDateipfad)
End Sub

更改名称，位置以及包括日期时间！

Excel VBA：指定要保存的文件名和文件位置

1 个答案: