VB

質問

visual Basic 2005 expess edition　を最近利用し始めたばかりの初心者です。簡単な
質問だとは思いますが宜しくお願いします。

フォームにあるラベルの中に数字が入力されているとします。

ボタンを押す（もしくはキー操作）で、その数字をエクセルへ出力したいのですがどうすればいいのでしょうか？

クリップボードへコピーすることまではできたのですが
それからエクセルのセルを指定してそこへペーストするという部分がわかりませんでした。
ＶＢＡだとrefeditを使って出力先のセルを指定するなどできるのですがＶＢだとコントロールにrefeditがないので困っています。

良い方法があれば回答お願いします。

回答No.1

K-Sogacchi · ベストアンサー

Expressだと、現実的なのはCOM Interopを使う方法でしょうか？
（Visual Studio 2005 Tools for the Microsoft Office Systemを
　買えるなら、その手もあるかもですが…そっちは全くわからんです）
…まず始めに、結構面倒であることをお伝えしておきます（汗）

VBAだと、そもそもExcel上で動いているものなので考える必要が無い話ですが、
VBの場合は、そもそもExcelでは無いので、Excelの機能を使うよう設定する
（Excelを扱う機能を取り込む）ことが必要です。
「プロジェクト」→「参照の追加」で、「COM」タブを選択、その中から
「Microsoft Excel ??? Object Library」を選択してOKを押します。
（私の環境だと、11.0 Object Libraryとかがあります）

後は実際にコーディングしていきますが、COMコンポーネント、特に
Excel関連のオブジェクトを使ったときの後始末は面倒です。
下のリンクに、その関連情報があります。
コーディングの仕方は、ここで書くと長くなりすぎるので、
いろいろ調べてみてください。

参考URL：

http://jeanne.wankuma.com/tips/programing/releasecom.html

お礼

回答ありがとうございます。
簡単にできるものだと思ってたのですがそうでもないようですね。
まだ不勉強で教えていただいたＨＰを
読みこなす事も難しいですが
教えていただいたＨＰを参考に勉強したいと思います。
ほんとなら解決後、お礼返信したいところですが
時間がかかりそうなのでとりあえず先にお礼返信させていただきます
ありがとうございました。

回答No.2

sendaitaro

参照設定は＃１さんのとおりです。
コーディングサンプルです。
一応、動作確認してます。
Dim objEx As New Excel.Application
With objEx
With .Application
.Workbooks.Add()
.Worksheets("Sheet1").select()
End With
'
.Cells(1, 1).value = Label1.Text
'
.Visible = True
'
.Quit()
'
End With
'
objEx = Nothing
'
Ｅｘｃｅｌマクロをご存知のようなので
詳細説明は省略します。

お礼

回答ありがとうございます。

サンプルで動作確認できました。
まだ初心者なので、コードの意味が完全には理解できないですが
教えていただいたコードをベースに色々試行錯誤すれば
今の自分の問題が解決できそうです。

ありがとうございました。