常連

VBAでFileSystemObjectのFolderExistsを利用して、SharePoint上のフォルダがあるか確認したのですが、シェアポイントから取得したパスでは「False」が帰ってきてしまいます。
(ローカルパスやOneDriveパスでは問題ないのですが、SharePoint上のフォルダでの対応が必要な状態です。)
なにか方法はないでしょうか？？

【前提条件】
SharePoint上に任意のフォルダを作成しておく(例:TEST)

【SharePointからリンクコピーで取得したパス】
https://XXX.sharepoint.com/:X:/r/sites/XXX/Shared Documents/TEST (「:X:/r」は「X」を小文字に読み替え)

【ソース】
Dim SharePoint_path as string
Dim fs As Scripting.FileSystemObject
Dim kekka As String
Public Sub main()
    SharePoint_path = 'SharePointからリンクコピーで取得したパス'
　SharePoint_path = URLdecode_path(SharePoint_path)'フォルダ名に日本語が使用されているため、URLデコードを実施
    Set fs = New Scripting.FileSystemObject
    kekka = fs.FolderExists(SharePoint_path)　'ここで｢True｣ではなく｢False｣になる
End Sub

Function URLdecode_path(path As String) As String
    Dim path_full, path_left, pathright As String
    With CreateObject("ScriptControl")
        .Language = "JScript"
        path_full = .CodeObject.decodeURI(path)
    End With
    path_full = Left(path_full, InStr(path_full, "?") - 1)
    path_left = Left(path_full, InStr(path_full, "/:"))
    path_right = Right(path_full, Len(path_full) - InStr(path_full, "sites") + 1)
    URLdecode_path = path_left & path_right
End Function



VBAでSharePointの上フォルダの存在を確認したい

### 前提

ネットワーク上にあるExcelファイルを取り込んで、streamlitで可視化するアプリケーションを作成しようと思っています。
sharepoint上にExcelファイルを置き、それをinputとしてETLなどを行い、簡単な可視化を行った結果をユーザに提示するものとなります。

![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-10-28/b16a7b56-5b01-4a8d-b55d-646473604c48.png)

### 実現したいこと

上記のようなシステムで、sharepointにあるデータを、自らのPC上にpandasのdataframeとして取り込みたいと考えています。
ただし、組織のルール変更の関係で、ローカルPC上にデータをExcelなどの容易に閲覧できる形で持っておくのはNGということになってしまったため、sharepoint上に格納してそこからアクセスすることを考えています。

### 発生している問題・エラーメッセージ
調べたところ、下記サイトに、上記が実現できそうな内容が掲載されていました。

https://stackoverflow.com/questions/48424045/how-to-read-sharepoint-online-office365-excel-files-in-python-with-work-or-sch

上記サイトのコードを適用してみましたところ、前半のctx.webというところまでは取得出来てそうなのですが、後半部分でエラーが出力されました。
（ですので、sharepoint自体にはアクセスできてそうなのですが…）

本筋としては、sharepoint上の何等かのデータフォーマットのデータを取得して、dataframeにしたいだけなので、何か良い方法などありましたら、上記方法に限らず、ご教示いただくことは可能でしょうか。

```
Value Error: Excel file format cannot be determined, you must specify an engine manually.
```

### 該当のソースコード

```ここに言語名を入力
url = 'https://yoursharepointsite.com/sites/documentsite'
username = 'yourusername'
password = 'yourpassword'
relative_url = '/sites/documentsite/Documents/filename.xlsx'

ctx_auth = AuthenticationContext(url)
if ctx_auth.acquire_token_for_user(username, password):
  ctx = ClientContext(url, ctx_auth)
  web = ctx.web
  ctx.load(web)
  ctx.execute_query()
  print "Web title: {0}".format(web.properties['Title'])
else:
  print ctx_auth.get_last_error()
  # ↑ここまでは正常に動いて、Titleも取得できた。


import io
import pandas as pd

response = File.open_binary(ctx, relative_url)

#save data to BytesIO stream
bytes_file_obj = io.BytesIO()
bytes_file_obj.write(response.content)
bytes_file_obj.seek(0) #set file object to start

#read file into pandas dataframe
df = pd.read_excel(bytes_file_obj)
↑ここで、上記のようなエラーが出た。

# 追記：ここで、read_csvを行うと、データが取得され、
{"error": code:"-2147024809", System.ArgumentException...｝
のようなデータが取得された。(respoinse.contentの中身をprintで確認しても実際上記のようなものが入っていた。）
```

### 試したこと
sharepoint上のExcelファイルからデータを取得するための方法を試してみた。

### 補足情報（FW/ツールのバージョンなど）
pandas 1.4.3
Office365-REST-Python-Client 2.3.14
python 3.10.5

sharepoint上のExcelファイルの中身をpythonで読み出してdataframeに入れたい

###前提・実現したいこと
SharePointのチームサイト内に社内システムのリンク集を作成しています。
リンク集はHTMLの「a href」を使って作成しています。

社内のパソコンはWindows10、既定のブラウザはMicrosoft Edgeです。

社内システムの一部がMicrosoft Edgeに対応していないことから、対応していないシステムのリンクをクリックしたときに、Internet Explorer または Google Chromeなどの他のブラウザが別ウィンドウで起動するようなリンク集に作り替えたいと思っています。

チームサイト（SharePoint）では、HTMLとJavaScriptしか扱えないので、この２つの言語を使って実現したいです。（SharePoint上でJavascriptは.jsファイルを読み込む形でHTMLを書いています）

###発生している問題・エラーメッセージ
社内システムの一部がMicrosoft Edgeに対応しておらず、チームサイトのリンク集からリンクをクリックすると、システムが起動できない（ログインページが表示できない）状況になっています。

###該当のソースコード
なし

###試したこと
デスクトップにInternetExplorerのショートカットを作成して特定のWebシステムが起動できるように設定する方法は確認しているのですが、チームサイトのリンク集をクリックしてもInternetExplorerでシステムが起動できるようにしたいです。

###補足情報(言語/FW/ツール等のバージョンなど)
Windows10
Microsoft Edge
SharePoint Online
HTML
Javascript

HTMLでリンク先のページをInternetExplorerで開くようにしたい

Teamsに静的HTMLファイルを投稿し、クリックで閲覧できる　もしくは埋め込みで表示できようにしたいです。

**■経緯**
・HTMLファイルの内容は、javascriptの埋め込みはありますが、静的な単純HTMLファイルです。
　
・このHTMLファイルはクラウドのSharepoint上にあります
　当初はSharepoint側にファイルを配置し、リンクを案内して終了、と思っていたのですが、
　Sharepoint側でカスタムスクリプトが禁止されており、かつその許可も下りないためTeamsでの
　解決を試みようと考えています。


**■前提**
・メールでの送信は想定していない
・オンプレミスのファイルサーバは存在しない。
・オンプレミスのWebサーバを立てることもできない
・社外に新たなWebサーバを立ち上げることもできない
　(このため、Sharepoint/TeamsといったAzureADにおける認証/認可の仕組みの傘のなかで
　　ことを進めたい思いがあります)



**■試したこと**
Teamsでの公開を目指し、以下実施してみました

0. 「ファイル」タブ配下にHTMLファイルを配置してみる
　⇒teamsでファイルを開いてしまい、javascriptがうまく動作しない

0. 「投稿」タブに当該HTMLファイルのSharepointリンクを張り付ける
　⇒ダウンロードとなってしまい、ブラウザで開いてくれない

0. タブを追加し、「Sharepoint」を選択、Sharepointリンクを張り付ける
　⇒”この SharePoint リンクはサポートされていません。別の SharePoint リンクを貼り付けてください”となり失敗


0. タブを追加し、「Webサイト」を選択、Sharepoint上のHTMLファイルのURLを登録する
　⇒”このサイトはデスクトップ アプリで読み込めません”となり失敗


---

状況的にSharepointをWebサーバに見立てて事を進めることに無理がありそうなので、
Sharepointからファイルをダウンロードし、Teamsに対して何らかの形で投稿することを
考えています。

どなたか、有効なアプローチを思いつく方いらっしゃいましたら　ご教示いただけますでしょうか。
Teamsに限らず、有効な方法がございましたら、ご提案いただけますと大変ありがたいです

Teamsに静的HTMLファイルを投稿し、クリックで閲覧できる　もしくは埋め込みで表示できようにしたい

こんにちは。
エクセル上のボタンを押すとダイアログから対象のエクセルファイルを開いてその中身を既存Sharepointリストに新規アイテム作成するといったプログラムを作成中です。

データコネクションにはADOを使用しています。
UPDATE文やDELETE文は問題なく動いたのですが、INSERT 文を実行すると以下のエラーが発生します。

============================================
実行時エラー '-2147217887(80040e21)':
フィールド'Title'は更新できません。フィールドが更新可能ではありません。
 
============================================
Do Until文で2行目以下の中身を変数に置き換えて空白になるまで新規作成を続けるという形です。
「ListID」は既にこれより前に定義済でUPDATE文やDELETE文で動作確認はできています。

Sharepointリスト側での必須入力はタイトルのみで、普段使わないようにしていてNAといれるようにしています。
""や'で囲んだりしてみましたがうまくいきませんでした。
SQL文が悪そうだと推測していますが、具体的にどのように変えたらいいのかが試行錯誤したり調べてみてもわかりませんでした。。
何卒ご教授のほどよろしくお願いいたします。

Debug.Print testSQLのイミディエイト↓例
INSERT INTO ListId (Title,test,test2) VALUES("NA",'A','A') ;
INSERT INTO ListId (Title,test,test2) VALUES('NA','B','B') ;

   Do Until Cells(y + 1, 1).Value = ""
    StrUserName = Cells(y + 1, 2).Value
    StrID = Cells(y + 1, 3).Value
          With rs
            .Open "SELECT * FROM list", cn
             .MoveFirst
              testSQL = "INSERT INTO ListId (Title,test,test2) VALUES(""NA""," & "'" & StrUserName & "'" & "," & "'" & StrID & "') ;"
              Debug.Print testSQL
            cn.Execute testSQL
            .Close
          End With
      Loop

VBA(EXCEL)を用いてSharepointListへのデータ挿入を行いたい

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

### 発生している問題・分からないこと
・excelのデスクトップからは該当のファイルは普通に開けるのでアクセスには(WindowsAuthが端末で認証できているためアクセス権限の)問題はないと考えるが、仮にそうでなかった場合に認証情報を送る必要が生じることは考えられる。
・ファイルパスを下記の様のコードで指定するとcon自体は開けるが、テーブル数は0だしCatalogを作成しても要素はない(本当にアクセスできてる？)
・excelファイルとして開いてRange.findみたいなことはしたくない(それしか方法がないならやむを得ないが、excelファイルをデータベースとして使用できる以上実現できると踏んでいる)



### 該当のソースコード

```
Dim Con as　New ADODB.Connection
con.connectionstring="Provider=Microsoft.ACE.OLEDB.12.0;Data SOURCE="& (SharePointオンライン上のexcelファイルのフルパス) &";Extended Properties='Excel 12.0 XML;HDR=Yes';"
con.open 'この時点でcon.status=1
dim rs as New ADODB.Recordset
rs.open "select * from [テーブル$]",con '←ここでファイルが見つかりませんのエラーが出る
```

### 試したこと・調べたこと
- [x] teratailやGoogle等で検索した
- [ ] ソースコードを自分なりに変更した
- [ ] 知人に聞いた
- [ ] その他

##### 上記の詳細・結果
ファイルへの接続(ADODB.Connection)のところでだいぶ躓きましたが、そこは通過してると思っています。
VBAを作動させているEXCELブック上に当該EXCELのテーブル自体をWorkbookConnectionで参照することもできているので、WorkbookConnectionにADOから接続する方法でも構いません(この方法はWorkbookConnectionをADOで開く方法をWEBで見つけられなくてできていない)。

### 補足
使用しているEXCELはＭicrosoft365(Excel16.0)ですが、Providerを16.0に変えたらConを開くことすらできなかったです。
・WorkbookConnectionをテーブルクエリとしてEXCELブックに展開すればADOでアクセスできる。
　(できることは知っているがブックを参照するのにローカルのブックにミラーするなど冗長の極みなのでやりたくない)
・ACCESSでワンバウンドさせようとしたがSHAREPOINTオンライン上のEXCELをデータソースにはできなかった(xmlしかソースにできないというお話)

データの管理をSQLサーバでやっている中で、会社の一部がPowerBIなんぞを使い始めてしまったので、極めて連携の取りにくい仕組みになってしまっている。Sharepoint側とSQLサーバ側と簡単にコネクトできればいいのにコネクタが標準でついてない。コネクタさえ標準実装していればこんな無駄な苦労はしないで済むのに。


sharepoint上のexcelにadoからアクセスしたい

### 前提

ExcelVBAで、マクロと同じ場所にあるファイルを開いて処理を行いたいです。
マクロはローカルドライブ上にあることもあれば、Sharepoint上にあることもあります。
Sharepointのアドレスをネットワークアドレスの形（https://sharepoint.～を\\sharepoint.～）に変換し、
APIのSetCurrentDirectoryを使って、カレントディレクトリにセットするまではできるのですが（CurDirで確認済み）、その状態でGetOpenFileName を実行すると、GetOpenFileName 上のデフォルトフォルダがローカルのドキュメントフォルダになってしまいます。
 
### 実現したいこと

GetOpenFileName 上のデフォルトフォルダをSharepointのアドレスにしたい

### 該当のソースコード
VBA
------
        Dim toolPath As String
        Dim toolDrive As String
        Dim FSO As Object
        Dim strFname As String

        Set FSO = CreateObject("Scripting.FileSystemObject")
        'ツールファイルのドライブ取得
        toolPath = ThisWorkbook.Path
        toolDrive = Left(toolPath, 1)
        If (Asc(toolDrive) >= 65 And Asc(toolDrive) <= 90) Then
            '大文字アルファベット
            'ツールファイルのフォルダ取得
            toolPath = Right(toolPath, Len(toolPath) - 2)
            toolPath = Left(toolPath, Len(toolPath) - InStrRev(toolPath, "\"))
        Else
            '大文字アルファベット以外
            toolDrive = ""
            toolPath = ConvertPath(toolPath, FSO)
        End If
    
        If Len(toolDrive) > 0 Then
            'カレントドライブ変更
            ChDrive toolDrive
            'カレントディレクトリ変更
            ChDir toolPath
        Else
            'カレントディレクトリ変更
            Call SetCurrentDirectory(toolPath)
        End If

        'インプットファイル選択
        strFname = Application.GetOpenFilename(Title:="見積総括表ファイル選択")
        
        If strFname <> "False" Then
            ActiveSheet.Range("$C$3").Value = strFname
        End If

~~~~~~~~~~~~~~~~~~~~~~
Function ConvertPath(str As String, FSO As Object) As String
    On Error Resume Next
    If InStr(str, "/Documents") Then
        str = Right(str, Len(str) - InStr(str, "/Documents") - Len("/Documents") + 1)
        str = Replace(str, "/", "\")
        str = Environ("OneDrive") & str
    End If
    If InStr(str, "https:") Then
        If InStr(str, "?csf") Then
            str = Left(str, InStr(str, ".com/") + Len(".com/") - 2) _
                & Mid(str, InStr(str, "/site"), InStrRev(str, "?csf") - InStr(str, "/site"))
        Else
            str = Left(str, InStr(str, ".com/") + Len(".com/") - 2) _
                & Mid(str, InStr(str, "/site"), Len(str) - InStr(str, "/site") + 1)
        End If
        str = Replace(str, "https:", "")
        str = Replace(str, ".com", ".com@SSL\DavWWWRoot")
        str = Replace(str, "/", "\")
        With CreateObject("ScriptControl")
            .Language = "JScript"
            str = .CodeObject.decodeURI(str)
        End With
    End If
    If FSO.GetExtensionName(str) = "" And Right(str, 1) <> "\" And Right(str, 1) <> "/" Then
        str = str & "\"
    End If
    ConvertPath = str
End Function
------


ExcelVBA：GetOpenFileName のデフォルトフォルダをネットワークドライブ（Sharepointのアドレス）にしたい

前提・実現したい事
---
PowerShellを使い、SharePoint Online上のファイルを
ローカル(任意の場所)に保存したいと考えております。



発生している問題・Error Message
---
ネットで調べ、「Invoke-WebRequest -Uri <Uri> -OutFile <保存場所>」
のコマンドを試してみましたが、ダウンロードは出来るのですが、ファイルの中身が全て同じになってしまう。
容量：45KB
中身：<!DOCTYPE HTML PUBLIC "・・・ から始まり、約660行位ある「HTML」が書かれています。
＊HTMLの知識が乏しい為、「何が・どんな事が」書いてあるかが分かりません。
恐らくログ？？？ 対象のページ情報丸々記載されている？？？


実際のソースコード
---
試したコード其の一
＊認証無し
```PowerShell
<# 対象URL  -- ファイル保存場所 -- #>
$url  = "https://○○○○/sites/Lesson/○○○○/Library/test.txt"

<# 保存先パス  -- ファイル名まで完全指定 -- #>
$path = "C:\temp\test.txt"

<# File Download Command #>     # -- Pattern 1 -- #
Invoke-WebRequest -Uri $url -OutFile $path
```

試したコード其の二
＊どこかのサイトで、認証する。みたいな事が書いてあったので改良
```PowerShell
<# 対象URL  -- ファイル保存場所 -- #>
$url  = "https://○○○○/sites/Lesson/○○○○/Library/test.txt"

<# 保存先パス  -- ファイル名まで完全指定 -- #>
$path = "C:\temp\test.txt"

<# File Download Command #>     # -- Pattern 2 -- #
$USER       = "ユーザーID"
$PASS       = "パスワード"
$secpasswd  = ConvertTo-SecureString $PASS -AsPlainText -Force
$cred       = New-Object System.Management.Automation.PSCredential($USER, $secpasswd)
Invoke-WebRequest -Uri $url -OutFile $path -Credential $cred
```

試した事
---
「DownloadFile」も試しましたが、エラーが出ました。
サーバー応答なし（403 or 404）みたいなエラー。。
調べた結果、SharePoint Onlineにログイン出切ていないエラーだと分かり、
其の二のプログラムを作成してみました。。


補足情報(言語/FW/ツール等のVersion)
---
・PowerShell Version 5.0
・SharePoint Online
・Window7(64bit)