常連

### 前提

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のアドレス）にしたい

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で開くようにしたい

こんにちは。
エクセル上のボタンを押すとダイアログから対象のエクセルファイルを開いてその中身を既存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へのデータ挿入を行いたい

お世話になります。以下、調べてみてもわからなかったため、質問させて頂きます。

**Ver.1 : FileSystemObjectを使ってDir関数を使わずに書いてみたところ、エラーはなくなりました。
　　　 一方、既存ファイルがあるか確認するIf fso.FileExists()では、ファイルが存在していても
　　　 ファイルを認識せず、毎回新規のファイルを作成し上書きするようになってしまいました。
          正直お手上げです。。。**
**【背景】**
毎月、PPTで月次のレポートを自動作成するマクロを動かしています。
すでにPPTが作成されていたら停止、未作成ならテンプレートを開いて、そのまま表の貼付け等に進むというものです。今回は問題が生じている部分だけを抜粋して記載しております。
先月、社内のサーバーがSharepointに移行されたことに伴い、マクロの保存先、ファイルの作成先・
既存ファイルの有無の確認先などすべてSharepointのフォルダ内で行うことになりました。
マクロとファイルの保存先は同じSharepoint内ですが、フォルダの階層は異なります。

### 【不具合が起きているコード】
```ここに言語を入力
    Dim ppApp As New PowerPoint.Application
    Dim ppPt As Presentation
    Dim folder_pass, file_name
    Dim fso As New FileSystemObject

    folder_pass = "\\会社名.sharepoint.com\DavWWWRoot\sites\ABC\月次レポート\"
    file_name = "会社名 " & Report_month(ThisWorkbook.Sheets("Master").Range("C2")) & " Report " & Year(ThisWorkbook.Sheets("Master").Range("C2")) & ".pptx"

    Set fso = New FileSystemObject 
    If fso.FileExists(file_name) = True Then
        MsgBox ("The file already exist. Program suspended.")
        End
    Else
        Set ppPt = ppApp.Presentations.Open(folder_pass & "会社名 Monthly Report_Blank.pptx")
    End If
```
~~If Dir(folder_pass) <> "" Then　のところで実行時エラー 52：ファイル名または番号が不正です。
というエラーが出ます。調べたところによると、Windows10のバージョンによってはWeb上のパスに対してDir関数が使えないケースがあるという記述も見つけました。その方はOne Driveを使った修正方法をご提案されていました。~~

**【解決したいこと】**
Sharepointに置いたままで、これまでと同じように使うにはどこをどのように修正すれば良いか
ご教授頂けないでしょうか？宜しくお願い致します。

マクロでSharepoint上のパスを取得する方法について

### 前提

2つExcelがSharePoint上にある場合、呼び出す方法を教えていただきたいです。
（Workbooks.Open等でThisWorkbook.Path & Excel(b)を指定したときにThisWorkbook.Pathでエラー）

### 実現したいこと

① Excel(A)、Excel(B)をSharePointの同階層に配置（毎回2ファイルを所定の階層に移動して使用する）
② Excel(A)から同じSharePointの階層にあるExcel(B)を呼び出す
(ThisWorkbook.Path等？で毎回URLを貼り変えず実行できるようにしたい)
③ Excel(B)のデータを取得しExcel(A)のシートに貼り付ける





SharePoint上のExcelマクロから別ブックの指定

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に限らず、有効な方法がございましたら、ご提案いただけますと大変ありがたいです