質問編集履歴

7

愚痴の追加

2025/05/22 09:29

投稿

Lhazz
Lhazz

スコア0

test CHANGED
File without changes
test CHANGED
@@ -32,4 +32,9 @@
32
32
 
33
33
  ### 補足
34
34
  使用しているEXCELはMicrosoft365(Excel16.0)ですが、Providerを16.0に変えたらConを開くことすらできなかったです。
35
+ ・WorkbookConnectionをテーブルクエリとしてEXCELブックに展開すればADOでアクセスできる。
36
+  (できることは知っているがブックを参照するのにローカルのブックにミラーするなど冗長の極みなのでやりたくない)
37
+ ・ACCESSでワンバウンドさせようとしたがSHAREPOINTオンライン上のEXCELをデータソースにはできなかった(xmlしかソースにできないというお話)
35
38
 
39
+ データの管理をSQLサーバでやっている中で、会社の一部がPowerBIなんぞを使い始めてしまったので、極めて連携の取りにくい仕組みになってしまっている。Sharepoint側とSQLサーバ側と簡単にコネクトできればいいのにコネクタが標準でついてない。コネクタさえ標準実装していればこんな無駄な苦労はしないで済むのに。
40
+

6

誤字修正

2025/05/21 07:50

投稿

Lhazz
Lhazz

スコア0

test CHANGED
File without changes
test CHANGED
@@ -4,7 +4,7 @@
4
4
  excelファイルをローカルでコピーして持っておくと、更新が二重になって齟齬も生じるのでコピーを持つのは避けたい。
5
5
 
6
6
  ### 発生している問題・分からないこと
7
- ・excelのデスクトップからは該当のファイルは普通に開けるのでアクセスには(WindowsAuthが端末で認証できているためアクセス権限の)問題はないと考えるが、仮にそうでなかった場合に認証情報を送る必要が生じることは考えられる。
7
+ ・excelのデスクトップからは該当のファイルは普通に開けるのでアクセスには(WindowsAuthが端末で認証できているためアクセス権限の)問題はないと考えるが、仮にそうでなかった場合に認証情報を送る必要が生じることは考えられる。
8
8
  ・ファイルパスを下記の様のコードで指定するとcon自体は開けるが、テーブル数は0だしCatalogを作成しても要素はない(本当にアクセスできてる?)
9
9
  ・excelファイルとして開いてRange.findみたいなことはしたくない(それしか方法がないならやむを得ないが、excelファイルをデータベースとして使用できる以上実現できると踏んでいる)
10
10
 

5

問題・不明点に補足を追記

2025/05/21 06:44

投稿

Lhazz
Lhazz

スコア0

test CHANGED
File without changes
test CHANGED
@@ -4,7 +4,7 @@
4
4
  excelファイルをローカルでコピーして持っておくと、更新が二重になって齟齬も生じるのでコピーを持つのは避けたい。
5
5
 
6
6
  ### 発生している問題・分からないこと
7
- ・excelのデスクトップからは該当のファイルは普通に開けるのでアクセスには問題ない
7
+ ・excelのデスクトップからは該当のファイルは普通に開けるのでアクセスには(WindowsAuthが端末で認証できているためはアクセス権限の)問題ないと考えるが、仮にそうでなかった場合に認証情報を送る必要が生じることは考えられる。
8
8
  ・ファイルパスを下記の様のコードで指定するとcon自体は開けるが、テーブル数は0だしCatalogを作成しても要素はない(本当にアクセスできてる?)
9
9
  ・excelファイルとして開いてRange.findみたいなことはしたくない(それしか方法がないならやむを得ないが、excelファイルをデータベースとして使用できる以上実現できると踏んでいる)
10
10
 

4

ソースコードの一部修正(ルーチン外で宣言していた項目をNewで定義)

2025/05/21 06:07

投稿

Lhazz
Lhazz

スコア0

test CHANGED
File without changes
test CHANGED
@@ -13,10 +13,10 @@
13
13
  ### 該当のソースコード
14
14
 
15
15
  ```
16
- Dim Con as ADODB.Connection
16
+ Dim Con as New ADODB.Connection
17
17
  con.connectionstring="Provider=Microsoft.ACE.OLEDB.12.0;Data SOURCE="& (SharePointオンライン上のexcelファイルのフルパス) &";Extended Properties='Excel 12.0 XML;HDR=Yes';"
18
18
  con.open 'この時点でcon.status=1
19
- dim rs as ADODB.Recordset
19
+ dim rs as New ADODB.Recordset
20
20
  rs.open "select * from [テーブル$]",con '←ここでファイルが見つかりませんのエラーが出る
21
21
  ```
22
22
 

3

付帯情報追加

2025/05/21 03:01

投稿

Lhazz
Lhazz

スコア0

test CHANGED
File without changes
test CHANGED
@@ -28,6 +28,7 @@
28
28
 
29
29
  ##### 上記の詳細・結果
30
30
  ファイルへの接続(ADODB.Connection)のところでだいぶ躓きましたが、そこは通過してると思っています。
31
+ VBAを作動させているEXCELブック上に当該EXCELのテーブル自体をWorkbookConnectionで参照することもできているので、WorkbookConnectionにADOから接続する方法でも構いません(この方法はWorkbookConnectionをADOで開く方法をWEBで見つけられなくてできていない)。
31
32
 
32
33
  ### 補足
33
34
  使用しているEXCELはMicrosoft365(Excel16.0)ですが、Providerを16.0に変えたらConを開くことすらできなかったです。

2

誤字修正

2025/05/21 02:58

投稿

Lhazz
Lhazz

スコア0

test CHANGED
File without changes
test CHANGED
@@ -1,5 +1,5 @@
1
1
  ### 実現したいこと
2
- 会社のネットワークでsharepointオンラインを使用していて、PowerQueryでの変換テーブル用にexcelファイルが存在している。
2
+ 会社のネットワークでsharepointオンラインを使用していて、PowerAppでの変換テーブル用にexcelファイルが存在している。
3
3
  PowerAppのデータベース登録をクライアント側からvbaで行ないたくて、このexcelファイルにadoで接続する方法を模索している。
4
4
  excelファイルをローカルでコピーして持っておくと、更新が二重になって齟齬も生じるのでコピーを持つのは避けたい。
5
5
 

1

使用EXCELのバージョン情報を付加

2025/05/21 02:57

投稿

Lhazz
Lhazz

スコア0

test CHANGED
File without changes
test CHANGED
@@ -30,4 +30,5 @@
30
30
  ファイルへの接続(ADODB.Connection)のところでだいぶ躓きましたが、そこは通過してると思っています。
31
31
 
32
32
  ### 補足
33
- にな
33
+ 使用しているEXCELはMicrosoft365(Excel16.0)ですが、Providerを16.0変えたらConを開くことすらできかったです。
34
+