投稿日 | : 2002/09/12(Thu) 13:21 |
投稿者 | : A221 |
Eメール | : |
URL | : |
タイトル | : Re^3: 参照設定について |
もう必要ないかもしれませんが、(読んだのが遅かったですね。)
Option Explicit
Private Const Fname = "c:\test.xls"
Private Sub Form_Load()
Dim xlsOBJ As Object
Set xlsOBJ = GetObject(Fname)
With xlsOBJ
.worksheets(1).cells(1, 1).Value = "test"
.worksheets(1).cells(2, 1).Value = "Row=2 Col=1"
.saveas
.Close
End With
Set xlsOBJ = Nothing
End Sub
保存は開いた場所ではなく、マイドキュメント等のエクセル標準で保存する
フォルダに落ちます。(フルパス指定すればOKですが。)