Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9254 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【28405】他のパソコンのEXCELデータのシートを読... かずこ 05/9/5(月) 19:40 質問[未読]
【28416】Re:他のパソコンのEXCELデータのシートを読... ichinose 05/9/6(火) 8:40 発言[未読]
【28418】Re:他のパソコンのEXCELデータのシートを読... かずこ 05/9/6(火) 9:40 質問[未読]
【28419】Re:他のパソコンのEXCELデータのシートを読... 小僧 05/9/6(火) 10:10 発言[未読]
【28405】他のパソコンのEXCELデータのシートを読...
質問  かずこ  - 05/9/5(月) 19:40 -
引用なし
パスワード
   はじめまして
教えてください
よろしくお願いします。

ネットワークで接続されている
他のパソコンのEXCELデータのシートを呼んでいるのですが
EXCEL2000は、OK　なのですが　EXCEL2003で実行すると
数値と日付のところが読込まれません。
読込まれるようにするにはどうしたらいいのか
わかりません。
教えてください。


Set Cn = CreateObject("ADODB.Connection")
　　
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
　　　　"Data Source=" & xlFileName & ";" & _
　　　　"Extended Properties=""Excel 8.0;"""
　　　　　

mySQL = "SELECT * FROM [" & xlSheetName & "$]"
Set RS = Cn.Execute(mySQL)
If Not RS.EOF Then
　 Cells(2, 1).CopyFromRecordset RS
End If

現在実行しているVBAです。
よろしくお願いします。
【28416】Re:他のパソコンのEXCELデータのシートを...
発言  ichinose  - 05/9/6(火) 8:40 -
引用なし
パスワード
   ▼かずこ さん：
おはようございます。

>はじめまして
>教えてください
>よろしくお願いします。
>
>ネットワークで接続されている
>他のパソコンのEXCELデータのシートを呼んでいるのですが
>EXCEL2000は、OK　なのですが　EXCEL2003で実行すると
>数値と日付のところが読込まれません。
>読込まれるようにするにはどうしたらいいのか
>わかりません。
>教えてください。

2003を持っていないので
直接の回答ではありません。

まず、原因がどこにあるのか探るところから始めてみては
いかがでしょうか？
2000と2003で、

>Set Cn = CreateObject("ADODB.Connection")
とした場合、
ＡＤＯのバージョンが違う可能性が大ですよね？

msgbox cn.version

等として2000と2003のＡＤＯのバージョンの違いがあるか否かを
確認してください。

もし、バージョンに違いがあった場合、

2003でも2000と同じバージョンにして試して見ましょう
（Createobjectでの方法は知りませんが、
参照設定すれば可能ですよね？）

これでうまくいくようなら原因が絞られますよね？
【28418】Re:他のパソコンのEXCELデータのシートを...
質問  かずこ  - 05/9/6(火) 9:40 -
引用なし
パスワード
   ichinose さん：
おはようございます。

msgbox cn.version
で2000と2003のＡＤＯのバージョンを調べました
両方とも2.8でした。
なかなか原因がつかめなくて困っています。
何が原因なのか教えてください。
お願いします。
【28419】Re:他のパソコンのEXCELデータのシートを...
発言  小僧  - 05/9/6(火) 10:10 -
引用なし
パスワード
   ▼かずこ さん：
おはようございます。

MSのサポートページより

http://support.microsoft.com/default.aspx?scid=kb;ja;257819#XSLTH3129121122120121120120

Excel のバージョン :
データ ソースとして Excel 95 ブック (Excel Version 7.0) を使用する場合は、Excel 5.0 を指定します。
Excel 97、Excel 2000、または Excel 2002 (XP) ブック
(Excel Version 8.0、9.0、および 10.0) を使用する場合は、Excel 8.0 を指定します。

では2003の時…までは載っていないのですが…。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9254 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free