投稿日 | : 2002/09/12(Thu) 20:14 |
投稿者 | : M |
URL | : |
タイトル | : Re^4: 参照設定について |
A221さん、返答ありがとうございます!
> もう必要ないかもしれませんが、(読んだのが遅かったですね。)
いえいえ、まだ粘って考えてました!まあ時間はあまり残ってないんですけど・・・
まだまだ必要でした!
> 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ですが。)
違う方法をありがとうございます。私の環境(VB5 EXCEL2000)でやってみた所ちゃんと
起動してセーブもされるのですが、そのご作成したファイルを開いてもシートすら表示
されないです。。
でも手がかりが見つかったような気がするので色々と時間があれば思考錯誤していきたいと
思います。
また何かありましたらよろしくお願いします!! ありがとうございました!