vba-创建指定名字的文件

原创已于 2022-03-10 13:09:48 修改 · 958 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#windows

于 2022-03-09 16:59:24 首次发布

vba 专栏收录该内容

1 篇文章

订阅专栏

这段代码是一个VBA宏，用于从Excel工作表的D列中读取文件名，并在当前工作簿的路径下创建相应文件。它遍历D列的单元格，对于每个非空单元格，创建一个文件并设置为UTF-8编码。

备忘

从指定单元格取文件名，在相对路径下创建文件

Private Sub com_Click()

Dim end As Rang

Dim sheet1 as WorkSheet

Dim filename as String

Set sheet1 = ActiveSheet

Set end = sheet1.Range("D1").End(xlDown)

If end.Value <> "" Then

    With Range("D1",end)

    For r=1 To .Rows.Count

        filename = .Item(r, 1)
        With CreateObject (""ADODB.Stream)

        .Charset="UTF-8"
        .OPEN
        .SaveToFile ThisWorkbook.Path & "\" & filename, 2
        .Close

        End With

    Next r

    End With

End If

End Sub