Добавить шаблон листа из One Drive Excel VBA - PullRequest
Новая
       22

Добавить шаблон листа из One Drive Excel VBA

0 голосов
/ 28 февраля 2019

Текущий код, который у меня добавлен, но не перемещается по макету шаблона в добавляемый лист.Добавленный лист переименован, но пуст.Может кто-нибудь, пожалуйста, помогите мне.

Private Sub CommandButton1_Click()
Dim sh As Worksheet
Dim shName As String

'name of the sheet template
shName = "SharePoint Metrics Template.xltm"

'Insert sheet template
With ThisWorkbook
    Set sh = Sheets.Add(Type:="https://simcoelectronics-my.sharepoint.com/:x:/g/personal/zack_thompson_simco_com/EQrznpv-QI9MttaVe713ilEBwmt9VDUa0nztAMd-ebeeeA?e=r9VHMK" & shName, _
                        after:=.Sheets(.Sheets.Count))
End With

'Give the sheet a name, today's date in this example
On Error Resume Next
sh.Name = Format(Date, "mm-dd-yyyy")
If Err.Number > 0 Then
    MsgBox "Change the name of Sheet : " & sh.Name & " manually"
    Err.Clear
End If
On Error GoTo 0

End Sub

...