如何用 VBScript 繪制指定范圍

Question

我有一張 excel 表，里面有 5 列。 我想使用 VBScript 僅繪制 A、D 和 E 列的數據圖表。

目前，使用下面的代碼，我繪制了所有 5 列。 請提前告知並感謝。

With .ActiveChart
 .SetSourceData(Source:=objXLSWorkSheet.Range("A:A" & LastRowofA, "D:D" & LastRowOfD, "E:E" & LastRowOfE))
End With

Answer 1

嘗試使用Union方法創建必要的范圍：

With .ActiveChart
    .SetSourceData .Application.Union(objXLSWorkSheet.Range("A1:A" & LastRowofA), objXLSWorkSheet.Range("D1:D" & LastRowOfD), objXLSWorkSheet.Range("E1:E" & LastRowOfE))
End With

Answer 2

  'objWS = Objet worksheet ("Name"). objExcel = object Excel 
  =>CreateObject("Excel.Application")
      'Use this to select your specific range
      With objWS
        Set xlRange = objExcel.Union(.Range("B1:B5"), .Range("D1:D5"))
      End With

Answer 3

我使用下面的代碼部分生成了一個帶有 vbscript 的圖表：

objWS = Objet worksheet ("Name"). objExcel = object Excel =>CreateObject("Excel.Application")
 'Use this to select your specific range
 With objWS
Set xlRange = objExcel.Union(.Range("B1:B5"), .Range("D1:D5"))
End With


With GetObject(, "Excel.Application")
 'This code is using to SetSourceData with a specific range  
 objExcel.ActiveChart.SetSourceData xlRange
End With