1

Excel ファイルから S:\froyo\ics フォルダーに保存されている csv にデータをエクスポートしたいと考えています。コンピューターのプロファイル名にちなんで csv ファイルに名前を付けたいと考えています。現在、以下のコードを使用していますが、命名部分が正しくありません。

サブ csvfile()

Dim fs As Object, a As Object, i As Integer, s As String, t As String, l As String, mn As String
Set fs = CreateObject("Scripting.FileSystemObject")
sUser = Environ("username")
Set a = fs.CreateTextFile("S:\froyo\ics\sUser.csv", True)
For r = 1 To Range("A65536").End(xlUp).Row
    s = ""
    c = 1
    While Not IsEmpty(Cells(r, c))
        s = s & Cells(r, c) & ","
        c = c + 1
    Wend
    a.writeline s 'write line
Next r

サブ終了

4

1 に答える 1

2

s ユーザー変数は文字列に連結する必要があります。そうしないと、変数ではなく文字列の一部と見なされます。

Set a = fs.CreateTextFile("S:\froyo\ics\" & sUser &".csv", True)
于 2013-07-24T05:39:06.647 に答える