投稿日 | : 2002/11/06(Wed) 13:48 |
投稿者 | : A221 |
Eメール | : |
URL | : |
タイトル | : Re^5: 処理が遅すぎる。 |
> Worksheets(txtName.Text).SaveAs "C:\WINDOWS\デスクトップ\" & txtName.Text & ".csv"
「Worksheets(txtName.Text)」の部分もXlappや、Xlbookから参照したほうがよいでしょう。
Dim tmpname As String
Dim fpath As String
fpath = "c:\"
tmpname = Text1.Text
xlbook.Worksheets(tmpname).SaveAs _
FileName:=fpath & tmpname & ".csv", FileFormat:=xlCSV
これで保存できました。