Function GetFileName(ByVal DialogType As MsoFileDialogType, ByVal defaultPath As String) As String

Worksheets(Sharepoint对应的sheet).Range(A1).ListObject.QueryTable.Refresh BackgroundQuery:=False

注意，还有一种方法是再打开本excel的时候，就设置为手动，对于需要计算的sheet，单独在其数据填充完毕后，执行计算操作。

例如： Worksheets(XXXXX”).Calculate ‘这是效率最高一种方法。当然，你也可以对某些range，单独进行range计算。

Worksheets(dstSheet).Cells(1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Worksheets(CostTable).Cells.Replace What:=Original Content, Replacement:=replease Content, LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Worksheets(xxxx)..Range(D8:F8).AutoFill Destination:=.Range(.Cells(8, 4), .Cells(rMax, 8)), Type:=xlFillDefault