Cells.Select ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "Sheet1!C1:C16").CreatePivotTable TableDestination:="", TableName:="樞紐分析表1" ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1) ActiveSheet.Cells(3, 1).Select ActiveSheet.PivotTables("樞紐分析表1").SmallGrid = False Charts.Add ActiveChart.SetSourceData Source:=Sheets("Sheet2").Range("A3") ActiveChart.Location Where:=xlLocationAsNewSheet ActiveWorkbook.PublishObjects.Add(xlSourceChart, "D:\Page.htm", "Chart1", "", _ xlHtmlChart, "Book2_12184", "").Publish (True) ChDir "D:\" 小弟不才，接連爬了幾篇文章。發現只有DELPHI的範例。 研究過後發現DELPHI的對VBA的翻譯語法跟BCB有著大大的不同 唉！抱著一本VBA的語法字典卻苦不知把他翻成BCB語法，望大大們慷慨相授 －－－－－－－－－－－－－－－－－－－－－－－－ 我是新手，觀念還不是很清楚。 問了些惹人發笑的問題，請各位大聲的在螢幕後笑出來。沒關係的！ 免得害各位引起嚴重內傷！ －－－－－－－－－－－－－－－－－－－－－－－－