新しいSharePointリストを設定していますが、最初の4/5列をSharePointにアップロードし(名前と内容が一致します)、次に12番目の列にSharePointの5番目の列が含まれているためアップロードします。質問する前に、ドキュメントは特定の形式であると想定されているため、12列目の場所を変更する権限または承認がありません。
VBAを初めて使用するので、SharePointサイト、特にこのリストに接続して、Excelデータをアップロードする方法がわかりません。以前にExcelデータを手動でアップロードしたことがありますが、このプロセスを自動化して、マクロを実行してシート内のアイテムをアップロードできるようにします(現在、重複が後で整理されたら、正常にアップロードしたいだけです)。文書化されたコードのドラフトを求めていないので、ExcelとVBA / SharePointの相互作用に精通している人々からのヘルプとポインターを使用することができます。
私はVBAを初めて使用するので、データが含まれているブック(シートではない)を開いてみました(このマクロを使用しているのは私だけではないため、ファイルを開く方法を選択したので、ユーザーに許可することにしました。それらのディレクトリに移動します。
Sub UploadUntimed()
Dim my_FileName As Variant
my_FileName = Application.GetOpenFilename(FileFilter:="Excel Files,*.xl*;*.xm*")
If my_FileName <> False Then
Workbooks.Open Filename:=my_FileName
End If
End Sub
ぜひお試しください。
Private Sub CreateList()
Dim folder As folder
Dim f As File
Dim fs As New FileSystemObject
Dim RowCtr As Integer
RowCtr = 1
Set folder = fs.GetFolder("http://your_url_here/") '<=Variable Location
For Each f In folder.Files
Cells(RowCtr, 1).Value = f.Name
RowCtr = RowCtr + 1
Next f
End Sub
また、これを試してみてください。
Sub UpdateSpecificCells()
'If nobody has the file checked out
If Workbooks.CanCheckOut("http://your_url_here/ExcelList.xlsb") = True Then
Application.DisplayAlerts = False
'Open the file on the SharePoint server
Workbooks.Open Filename:="http://your_url_here/ExcelList.xlsb", UpdateLinks:=xlUpdateLinksNever
ActiveSheet.Cells(2, 7).Value = 100
ActiveSheet.Cells(3, 7).Value = 200
ActiveSheet.Cells(4, 7).Value = 300
'Close the workbook
Workbooks("ExcelList.xlsb").Save
Workbooks("ExcelList.xlsb").Close
End If
End Sub
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加