質問編集履歴
7
愚痴の追加
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
誤字修正
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
問題・不明点に補足を追記
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で定義)
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
付帯情報追加
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
誤字修正
test
CHANGED
File without changes
|
test
CHANGED
@@ -1,5 +1,5 @@
|
|
1
1
|
### 実現したいこと
|
2
|
-
会社のネットワークでsharepointオンラインを使用していて、Power
|
2
|
+
会社のネットワークでsharepointオンラインを使用していて、PowerAppでの変換テーブル用にexcelファイルが存在している。
|
3
3
|
PowerAppのデータベース登録をクライアント側からvbaで行ないたくて、このexcelファイルにadoで接続する方法を模索している。
|
4
4
|
excelファイルをローカルでコピーして持っておくと、更新が二重になって齟齬も生じるのでコピーを持つのは避けたい。
|
5
5
|
|
1
使用EXCELのバージョン情報を付加
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
|
+
|