tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトル旧のVB6.0用 既存のエクセルファイルを開く について
記事No16301
投稿日: 2017/05/01(Mon) 14:57
投稿者マサタロウ
" VB5.0 Learning Edition " を使用しています。

旧のVB6.0用のメニュー にある

既存のエクセルファイルを開く
  http://www.hanatyan.sakura.ne.jp/vbhlp/excel02.htm

のページの、' Excel の起動処理 〜 'Excel を操作部分('エクセルを表示します)までの
コードをそのままコピーして実行すると、
  「 コンパイルエラー:変数が定義されていません。 」
が表示されます。

以下の様にコードを追加すると、
エクセルファイルを開けるようになります。

Option Explicit


Private Sub Command1_Click()

'★プロジェクト→参照設定でMicrosoft Excel *.* ObjectLibraryに
' チェックを入れておいて下さい。
'テスト用ファイル(xlTestFile)は各自準備して下さい。
'==================================================================
' Excel の起動処理
  'オブジェクトへの参照を格納する変数を宣言(事前バインディング)
  Dim xlApp  As Excel.Application
  Dim xlBook  As Excel.Workbook
  Dim xlSheet As Excel.Worksheet

   Dim xlTestFile As String            '変数を宣言するコード。
   xlTestFile = App.Path & "\test.xls" 'ファイルのある場所を格納。
                                       '(パスは各自で指定して下さい)
                                        ↑等の記述があると良い。

  Set xlApp = CreateObject("Excel.Application")
  Set xlBook = xlApp.Workbooks.Open(xlTestFile)
  '読み取り専用で開く場合
  'Set xlBook = xlApp.Workbooks.Open(FileName, ReadOnly:=True)
  Set xlSheet = xlBook.Worksheets(1)
'==================================================================
'Excel を操作部分
  'エクセルを表示します。(非表示でも動作します)
  xlApp.Visible = True
  xlSheet.Activate         'Sheet1 を Activate に

End Sub

>'テスト用ファイル(xlTestFile)は各自準備して下さい。
とは、コードの追加も含まれるのでしょうか?
変数の宣言とパスの格納の記述が無いとわかりにくいです。

既存のエクセルファイルを開くのページは、
プログラムランチャーの機能に追加しようと参考にしました
(実際はAPIで解決)。

VBレスキュー(花ちゃん)さんにメールしたところ、納得いく回答が得られませんでした。
>こちらからメールしたEメールファイルを保存することで、再び参考にする場合に確認できる
としていましたが、VBなどの参考になるWebページを画像にして保存するという作業中で、
VBレスキュー(花ちゃん)さんにしたメールではなく、掲示板に投稿して、投稿したページを
画像にして保存しようと思っています。

[ツリー表示へ]
タイトルRe: 旧のVB6.0用 既存のエクセルファイルを開く について
記事No16302
投稿日: 2017/05/01(Mon) 19:02
投稿者花ちゃん
> >'テスト用ファイル(xlTestFile)は各自準備して下さい。
> とは、コードの追加も含まれるのでしょうか?
> 変数の宣言とパスの格納の記述が無いとわかりにくいです。

上記の件等は、サイトをリニューアルした際やサンプルを更新した際に見直しておりまので、
最新のサンプルを参考にしてください。
http://hanatyan.sakura.ne.jp/vb6/excel01.htm

> VBレスキュー(花ちゃん)さんにメールしたところ、納得いく回答が得られませんでした。

いつ頃の事でしょうか?
Windows 10 に更新してからのメールの記録に見当たらないのですが?
送信済みアイテムの方にも見当たらないのですが?

そもそもメールによる個別の質問等はお断りさせて頂いています。(掲示板の方にお願いします。)
 http://hanatyan.sakura.ne.jp/hazimeni.htm#no7

[ツリー表示へ]
タイトルRe: 旧のVB6.0用 既存のエクセルファイルを開く について
記事No16303
投稿日: 2017/05/02(Tue) 12:07
投稿者マサタロウ
> 上記の件等は、サイトをリニューアルした際やサンプルを更新した際に見直しておりまので、
> 最新のサンプルを参考にしてください。
『'既存のファイルをオープンして、Excel を起動する場合 (ファイルのフルパス , シート名)』
を確認しました。
自分は、プログラムランチャーの機能で参考にしたため、
VBからExcelファイルを操作することが主な目的でないです。
旧ページの内容を、不具合修正などを改めて編集されていると思いますが、
旧のVB6.0用 の方が、複雑に考えずに開く事ができると思いました。


> Windows 10 に更新してからのメールの記録に見当たらないのですが?
> 送信済みアイテムの方にも見当たらないのですが?
こちらに保存してあるメールは、Webページを画像で保存後、削除予定です。
2014年7月の事ですので(メールファイルの送信日から)、ファイルが無いのでは?


> そもそもメールによる個別の質問等はお断りさせて頂いています。(掲示板の方にお願いします。)
>  http://hanatyan.sakura.ne.jp/hazimeni.htm#no7
わかりました。これからは掲示板に投稿します。

[ツリー表示へ]