-PR-
締切済み

VBはじめたんですけど・・

  • 困ってます
  • 質問No.87252
  • 閲覧数41
  • ありがとう数2
  • 気になる数0
  • 回答数2
  • コメント数0

お礼率 91% (31/34)

VBを勉強しているのます
いまエクセルで作った住所録のデータをVBにとりこんで
編集や追加などを出来るようなプログラムをつくりたいのですが
どうやってもエクセルのデータをとりこめません
プロパティの設定がおかしいのでしょうか?

よきアドバイスをお願いします
初心者なので詳しくお願いします
通報する
  • 回答数2
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全2件)

  • 回答No.1
レベル13

ベストアンサー率 33% (427/1283)

貴方がどうやって作ったのか解らないので、アドバイスも出来ません。

 可能なら、エクセルのデータを取込んで来る予定の所のソースを補足して下さい。
 また、ソースが内場合は、貴方行った操作を書いて下さいね。
お礼コメント
chu-ta

お礼率 91% (31/34)

お返事がおくれてしましましてすみません
また、私の質問の説明不足をお許しください
今回は、ARCさんの回答を参考にさせていただきました

またわからないことがありましたとき、是非ご回答よろしくお願いします
回答ありがとうございました
投稿日時 - 2001-06-12 17:10:57


  • 回答No.2
レベル13

ベストアンサー率 46% (643/1383)

Excelがインストールされている環境でのみ使える方法です。
「参照設定」で、「Microsoft Excel 9.0 Object Library」にチェックをつけて、以下のようにコーディングします。
Excelの各オブジェクトについては、ExcelのVBAのヘルプを参照してください。
不明点とかあったら、補足してください。

Private Sub Command1_Click()
 Dim ExcelApp As New Excel.Application
 Dim ExcelSheet As Excel.Worksheet
 
 Dim CellData As Variant
 On Error Resume Next
 '開く
 ExcelApp.Workbooks.Open ("X:\XXX\Book1.xls")
 Set ExcelSheet = ExcelApp.Workbooks("Book1.xls").Worksheets("Sheet1")
 'エラーチェック
 If Err <> 0 Then
  MsgBox Err.Description
  Exit Sub
 End If
 'ワークシートを操作
 With ExcelSheet
  CellData = .Range("C1") 'C1のセルを取得
  MsgBox CellData
  .Range("D1") = CellData + 10 'D1に値を設定
 End With
 '終了処理
 ExcelApp.Workbooks("Book1.xls").Save '保存
 ExcelApp.Quit
End Sub
お礼コメント
chu-ta

お礼率 91% (31/34)

お返事がおくれてしまいましてすみません
大変詳しく説明していただきありがとうございました
参考にさせていただきます

回答ありがとうございました
投稿日時 - 2001-06-12 17:03:33
このQ&Aで解決しましたか?
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,500万件のQ&Aを分析して最適な回答をご提案します。

関連するQ&A
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


専門家があなたの悩みに回答!

-PR-

ピックアップ

-PR-
ページ先頭へ