常連

### 前提・実現したいこと

SharePoint Onlineへのファイルのアップロードを自動化することになり、今までVBAばかり書いていましたが、PowerShellを書くことになりました。
M365の環境では二要素認証が強制されています。
本来はforeachで繰り返し処理を行う予定ですが、その前に単発でSharePoint Onlineへのファイルアップロードテストを行ったところ、以下のエラーメッセージが表示されました。
先週金曜日にアップロードに成功しましたが、今日再び試すと同じエラーが発生しました。

### 発生している問題・エラーメッセージ

```
"Add" の引数 "parameters" (値 "Microsoft.SharePoint.Client.FileCreationInformation") を型 "Microsoft.SharePoint.Client.FileCreationInformatio
n" に変換できません: ""Microsoft.SharePoint.Client.FileCreationInformation" の値を "Microsoft.SharePoint.Client.FileCreationInformation" 型から "Micr
osoft.SharePoint.Client.FileCreationInformation" 型に変換できません。"
発生場所 (PowerShellファイルのパス):76 文字:1
+ $UpLoad = $UFolder.Files.Add($FileCreationInfo)
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : NotSpecified: (:) [], MethodException
    + FullyQualifiedErrorId : MethodArgumentConversionInvalidCastArgument
```

### 該当のソースコード

以下のページを参考にしています。
- [powershellを使ってsharepoint上のファイルを制御する - Qiita](https://qiita.com/matsumi_cag3/items/35d0a0e3274a1606f16a)
- [SharePoint Online DocumentLibrary List Retrive(取得) and Add(追加) Using PnP PowerShell (MFA) - Qiita](https://qiita.com/seinoro/items/811eb86f0e81ac6927c1)
- [(Office365)SharePoint Online上にPowershellにてファイルをアップロードする方法を検証してみた : ITインフラに悩まされてる日常](https://mitsushima.work/archives/20279960.html)

※テナント名とサイト名は実際とは異なります。

```PowerShell
# SharepointOnline用のCSOMをロードする
[System.Reflection.Assembly]::LoadWithPartialName("Microsoft.SharePoint.Client") > $null
[System.Reflection.Assembly]::LoadWithPartialName("Microsoft.SharePoint.Client.Publishing") > $null
[System.Reflection.Assembly]::LoadWithPartialName("Microsoft.SharePoint.Client.Runtime") > $null
[System.Reflection.Assembly]::LoadWithPartialName("Microsoft.SharePoint.Client.Search") > $null
[System.Reflection.Assembly]::LoadWithPartialName("OfficeDevPnP.Core") > $null
Get-Module -Name "SharePointPnPPowerShellOnline"> $null

function login($SiteURL)
{

    #既にログインしていないか確認する
    $IsConnect =  $FALSE

    try {
        if (Get-PnPContext) {
            $IsConnect =  $TRUE
        }
    }
    catch {
    }


    #ログインしていない場合はログインする
    if($IsConnect -eq $FALSE)
    {
        #ログインしていない場合はWebログインする(MFAを回避するため)
        Connect-PnPOnline -Url $SiteURL -UseWebLogin  -WarningAction Ignore
    }
}

$UserName = "<SharepointUserName>"
$Password = ConvertTo-SecureString "<SharepointPassword>" -AsPlainText -Force

# サイトのURL
$SiteURL = "https://<sitename>.sharepoint.com/sites/test_site"

# 認証←二要素認証が導入されているアカウントには使えない
# $credential = New-Object Microsoft.SharePoint.Client.SharePointOnlineCredentials($UserName, $Password)
# $Context = New-Object Microsoft.SharePoint.Client.ClientContext($SiteURL)
# $Context.Credentials = $credential

# Authentication Manager を設定←エラーが発生するのでCO
# $AuthenticationManager = New-Object OfficeDevPnP.Core.AuthenticationManager
# $Context = $AuthenticationManager.GetWebLoginClientContext($SiteURL)

login  -SiteURL $SiteURL
$Context = Get-PnPContext

$objWeb = $Context.Web
$Context.Load($objWeb)
$Context.ExecuteQuery()

# ドキュメントライブラリ上のアップロード先フォルダをロードする
$SPOLib = "Shared Documents"
$SPOPath = "テストフォルダ"

$UploadFolder = $SPOLib + "/" + $SPOPath
$Ufolder = $objWeb.GetFolderByServerRelativeUrl($objWeb.ServerRelativeUrl + $UploadFolder)
$Context.Load($Ufolder)
$Context.ExecuteQuery()

# ローカルサーバ側のアップロード元ファイルを定義
$Path = "C:\Test"
$FileName = "Test.docx"
$TargetFile = Join-Path $Path $FileName
$LocalFile = Get-ChildItem $TargetFile

# sharepoint側のファイルストリームを開いてファイルをアップロード（Overwriteは必要に応じて変更）
$FileStream = New-Object System.IO.FileStream($TargetFile,[System.IO.FileMode]::Open)
$FileCreationInfo = New-Object Microsoft.SharePoint.Client.FileCreationInformation
$FileCreationInfo.Overwrite = $true
$FileCreationInfo.ContentStream = $FileStream
$FileCreationInfo.Url = $FileName

$UpLoad = $UFolder.Files.Add($FileCreationInfo)

$Context.Load($UpLoad)
$Context.ExecuteQuery()

$FileStream.Close()

$Context.Dispose()

exit 0
```

### 試したこと

エラーメッセージで検索しましたが、何も出てきませんでした。
英語表記
```
Cannot convert argument "parameters", with value: "Microsoft.SharePoint.Client.FileCreationInformation", for "Add" to type
"Microsoft.SharePoint.Client.FileCreationInformation": "Cannot convert the "Microsoft.SharePoint.Client.FileCreationInformation" value of type
"Microsoft.SharePoint.Client.FileCreationInformation" to type "Microsoft.SharePoint.Client.FileCreationInformation"."
```
でも検索しましたが、当てはまる情報は出てきませんでした。

- [Cannot convert argument "parameters", with value: "Microsoft.SharePoint.Client. - PowerShell - Spiceworks](https://community.spiceworks.com/topic/2229959-cannot-convert-argument-parameters-with-value-microsoft-sharepoint-client)
- [Upload a file to Sharepoint - SAPIEN Forums](https://www.sapien.com/forums/viewtopic.php?t=14143)
- [Uploading Solution file programatically to a SPO Modern site throws exception](https://social.technet.microsoft.com/Forums/en-US/322323a5-ec2c-4494-9c57-335e4377b5ce/uploading-solution-file-programatically-to-a-spo-modern-site-throws-exception?forum=onlineservicessharepoint)
- [Uploading Files to O365 SP](https://social.msdn.microsoft.com/Forums/en-US/ec2a6215-9883-4590-900d-82f8f5bd0a63/uploading-files-to-o365-sp?forum=sharepointdevelopment)
- [powershell - Cannot convert the "Microsoft.SharePoint.Client.ClientResult`1[System.IO.Stream]" to type "System.IO.Stream" - SharePoint Stack Exchange](https://sharepoint.stackexchange.com/questions/186143/cannot-convert-the-microsoft-sharepoint-client-clientresult1system-io-stream)

また、二要素認証に使っている SharePointPnPPowerShellOnline は古いらしく、PnP Framework に移行が推奨されているようですが、インストールがうまくいかず使用をあきらめました。

```PowerShell
PS C:\Windows\system32> Install-Package PnP.Framework -Version 1.7.0
Install-Package : パラメーター名 'Version' に一致するパラメーターが見つかりません。
発生場所 行:1 文字:31
+ Install-Package PnP.Framework -Version 1.7.0
+                               ~~~~~~~~
    + CategoryInfo          : InvalidArgument: (:) [Install-Package]、ParameterBindingException
    + FullyQualifiedErrorId : NamedParameterNotFound,Microsoft.PowerShell.PackageManagement.Cmdlets.InstallPackage
 

PS C:\Windows\system32> Install-Package PnP.Framework
Install-Package : No match was found for the specified search criteria and package name 'PnP.Framework'. Try Get-PackageSource to see a
ll available registered package sources.
発生場所 行:1 文字:1
+ Install-Package PnP.Framework
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : ObjectNotFound: (Microsoft.Power....InstallPackage:InstallPackage) [Install-Package], Exception
    + FullyQualifiedErrorId : NoMatchFoundForCriteria,Microsoft.PowerShell.PackageManagement.Cmdlets.InstallPackage
```

ファイルが開かれたままだから失敗したのかと思いきや、ファイルは事前に閉じられていました。

### 補足情報（FW/ツールのバージョンなど）

- エディション	Windows 10 Enterprise
- バージョン	21H1
- インストール日	‎2021/‎07/‎08
- OS ビルド	19043.1288
- エクスペリエンス	Windows Feature Experience Pack 120.2212.3920.0

```
>$PSVersionTable

Name                           Value
----                           -----
PSVersion                      5.1.19041.1237
PSEdition                      Desktop
PSCompatibleVersions           {1.0, 2.0, 3.0, 4.0...}
BuildVersion                   10.0.19041.1237
CLRVersion                     4.0.30319.42000
WSManStackVersion              3.0
PSRemotingProtocolVersion      2.3
SerializationVersion           1.1.0.1
```

```
> Get-InstalledModule | Select-Object -Property Version,Name

Version     Name
-------     ----
2.0.2.137   AzureAD
2.0.5       ExchangeOnlineManagement
1.1.183.57  MSOnline
3.29.2101.0 SharePointPnPPowerShellOnline
6.3.0       Az
2.5.2       Az.Accounts
1.1.1       Az.Advisor
2.3.0       Az.Aks
1.1.4       Az.AnalysisServices
2.2.0       Az.ApiManagement
1.0.0       Az.AppConfiguration
1.2.0       Az.ApplicationInsights
1.7.0       Az.Automation
3.1.0       Az.Batch
2.0.0       Az.Billing
1.7.1       Az.Cdn
1.9.0       Az.CognitiveServices
4.16.0      Az.Compute
2.1.0       Az.ContainerInstance
2.2.3       Az.ContainerRegistry
1.3.0       Az.CosmosDB
1.1.0       Az.DataBoxEdge
1.1.0       Az.Databricks
1.13.1      Az.DataFactory
1.0.2       Az.DataLakeAnalytics
1.3.0       Az.DataLakeStore
1.0.0       Az.DataShare
1.1.0       Az.DeploymentManager
3.0.0       Az.DesktopVirtualization
1.0.2       Az.DevTestLabs
1.1.2       Az.Dns
1.3.0       Az.EventGrid
1.8.0       Az.EventHub
1.8.0       Az.FrontDoor
3.1.0       Az.Functions
4.3.0       Az.HDInsight
1.3.1       Az.HealthcareApis
2.7.3       Az.IotHub
3.4.5       Az.KeyVault
2.0.0       Az.Kusto
1.5.0       Az.LogicApp
1.1.3       Az.MachineLearning
1.1.1       Az.Maintenance
2.0.0       Az.ManagedServices
1.0.2       Az.MarketplaceOrdering
1.1.1       Az.Media
1.1.0       Az.Migrate
2.7.0       Az.Monitor
4.10.0      Az.Network
1.1.1       Az.NotificationHubs
2.3.0       Az.OperationalInsights
1.4.1       Az.PolicyInsights
1.1.2       Az.PowerBIEmbedded
1.0.3       Az.PrivateDns
4.4.0       Az.RecoveryServices
1.5.0       Az.RedisCache
1.0.0       Az.RedisEnterpriseCache
1.0.3       Az.Relay
1.0.0       Az.ResourceMover
4.3.0       Az.Resources
1.0.0       Az.Security
1.0.0       Az.SecurityInsights
1.5.0       Az.ServiceBus
3.0.1       Az.ServiceFabric
1.3.0       Az.SignalR
3.4.1       Az.Sql
1.1.0       Az.SqlVirtualMachine
3.10.0      Az.Storage
1.5.0       Az.StorageSync
2.0.0       Az.StreamAnalytics
1.0.0       Az.Support
1.0.4       Az.TrafficManager
2.8.1       Az.Websites
1.4.7       PackageManagement
```

Microsoft 365の契約はE3です。
認証で使用しているアカウントは該当のSharePointサイトでフルコントロール権限が与えられていることを確認済みです。

どうかよろしくお願いします。

二要素認証が強制されているM365の環境でPowerShellを使用してSharePoint Onlineのドキュメントライブラリにファイルをアップロードしたい

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の上フォルダの存在を確認したい

### 前提

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マクロから別ブックの指定

###前提・実現したいこと
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で開くようにしたい

初めてお世話になります。
「フォーム：EXCEL／テーブル：SharePointのリスト」を使用したデータべースを作成しており
基本的には上手く動いているのですが、下記一連の動きをした時のみエラーが発生してしまいます。

①EXCEL VBA内で「Application.FileDialog(msoFileDialogOpen)」を使用して
　SharePointに保存しているファイルのパスを取得
　※.InitialFileName は、「https://～から始まる、SharePoint内のファイルへのアドレス(80文字程度)」
②その後、ADO.NETを使用してSharePointのリストを取得

という流れを取りたいのですが、
どうやら①のファイルダイアログが開いて、そこにSharepointのファイル一覧が表示された瞬間から
ADO.NETを使用してSharePointに繋げる事が出来なくなってしまう様なのです。
.InitialFileNameをCドライブなどにしておけば問題ないのですが、
パスにhttps～を入力して確定→Sharepoint内のファイル群が表示された瞬間に繋がらなくなります。
①②の流れをエラーなく処理するにはどのような修正が必要か分からず
色々なサイトなどでも調べてみたのですが解決出来ず、ご質問させて頂きました。
どうかご教授の程 何卒よろしくお願いいたします。

①
```VBA（EXCEL）
　 Dim vrtSelectedItem As Variant    
    With Application.FileDialog(msoFileDialogOpen)    
            .InitialFileName = "Sharepointの初期表示アドレス（https～）"
            .AllowMultiSelect = False
　　　　★If .Show = True Then　’…ここが実行されるとエラーの原因が発生
　　　　　　.Execute
　　　　End If
    End With
```
②
```VBA（EXCEL）
    Dim cn As Object 'ADODB.Connection
    Dim rs As Object 'ADODB.Recordset
    Dim ListName As String   'リストのテーブル名
    ListName = "テーブル名"

    Set cn = CreateObject("ADODB.Connection")   
    cn.Open "Provider=Microsoft.ACE.OLEDB.16.0;WSS;IMEX=2;RetrieveIds=Yes;DATABASE=" & SharePointUrl & ";LIST=" & ListName & ";"
    
    Set rs = CreateObject("ADODB.Recordset")
    rs.CursorLocation = 3
    With rs
       ★ .Open "SELECT ＊ FROM LIST", cn '…ここでエラーが発生してストップ

```
```ErrerCode
実行時エラー'2147217865(80040e37)'
オブジェクト'LIST'が見つかりませんでした。オブジェクトが存在していること、名前やパス名が正しいことを確認してください。’LIST’がローカルオブジェクトでない場合は、ネットワークの接続を確認するか、サーバー管理者に問い合わせてください。
```
・CreateObjectを使用せず、
　インスタンス「New ADODB.Connection・ADODB.Recordset」でも
　試したのですが上手く行きませんでした。
・OS：Win10／EXCEL・Sharepointとも、Microsoft365を使用しています。

VBA「Application.FileDialog(msoFileDialogOpen)」でSharepointのサイトを表示後、ADO.NETで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に入れたい

### 前提

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

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