vba-创建指定名字的文件

备忘

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

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