VBからエクセルの特定シート・特定セルのデータ取得？

解決

いさみせんせい 2004-07-02 09:58:09 No: 84350 IP: [192.*.*.*]

VBからエクセルの特定シート・特定行のデータを取得したいのですが、
指定の仕方が良く分かりません。
現在は LineInput #intFileNo strKomoku1,strKomoku2
といった方法で特定項目を取得しています。
特定セルに値を書き込むときは
("B12").Insert でいけると思うのですが、その逆は分かりません・・・
是非ご教授お願い致します

編集削除

S.S 2004-07-02 10:22:14 No: 84351 IP: [192.*.*.*]

書こうかと思ったんですが、ちと長くなりそうなんで参考になりそうなサイトを・・・
http://www.bcap.co.jp/hanafusa/VBHLP/Excel01.htm

編集削除

nanashi 2004-07-02 10:39:14 No: 84352 IP: [192.*.*.*]

> 現在は LineInput #intFileNo strKomoku1,strKomoku2
> といった方法で特定項目を取得しています。

Excelファイルのデータはコレでは取得できませんよ。
本当にExcelファイルですか？
CSVファイルなんじゃない？

> 特定セルに値を書き込むときは
> ("B12").Insert でいけると思うのですが、その逆は分かりません・・・

Insertはセルの挿入です。

編集削除

いさみせんせい 2004-07-02 13:45:59 No: 84353 IP: [192.*.*.*]

S.Sさん、nanashiさんありがとうございます。

S.Sさんご推奨のサイトをみたのですが、
CSV形式のもの・VB→エクセルは理解できたのですが
逆がいまいちよく分かりません

nanashiさんの言う通り
CSVファイルでした。
また、Insertでなく
.Cells(2, 2).Value
の形式で書き込めるようですね・・・

ボケボケで申し訳ないです・・・

編集削除

いさみせんせい 2004-07-02 16:21:54 No: 84354 IP: [192.*.*.*]

S.Sさん、nanashiさんありがとうございました。

S.Sさんご推奨サイトにより、解決いたしました！

今後同じ悩みを抱えられる方へ↓
Private Sub main()
    Dim objExcelApp   As Workbook
    Dim strExcelFile As String
    Dim strExcelSheet As String
    Dim MyValue     As Variant
    Dim strMOji     As String

    'エクセルのファイル名
    strExcelFile = "D:\日本の夜明け機能仕様書.xls"
    'ブックのシート名
    strExcelSheet = "ファイル定義書"
    'エクセルへ参照
    Set objExcelApp = GetObject(strExcelFile, "Excel.Sheet")

    '読む→ここがキモ!
    MyValue = objExcelApp.ActiveSheet.Cells(5, 2).Value

    'Excelのウインドウ（Book)を表示する
    objExcelApp.Windows(1).Visible = True

    'エクセルの終了
    objExcelApp.Application.Quit

    'オブジェクトを開放
    Set objExcelApp = Nothing
End Sub

編集削除