如何將DBGrid的資料填入excel |
|
尚未結案
|
|
foxrabbit
一般會員   發表：11 回覆：16 積分：5 註冊：2003-11-10 發送簡訊給我 |
各位高手:
我想把DBGrid的資料填入excel的cells中，我使用的是BCB6，Win2000環境及 Excel 2000，我參考站內各位高手提供的做法
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=34385
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=21190
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=39420
http://delphi.ktop.com.tw/topic.php?topic_id=22668
但還是有地方不懂，如http://delphi.ktop.com.tw/topic.php?TOPIC_ID=39420
文章中:
(1)開啟一個excel檔並命名之(例:Tc1output.xls)
(2)增加四個sheets，並且個自命名(例:test1、test2、test3、test4)
(3)在第一個sheet的cells內填入資料庫的數據(這個步驟參考站上文章我已學會)
(4)跳到第二個sheet，開始寫入數據資料
(5)依序把第三個sheet、第四個sheet填入資料 這篇文章中提到的第(3)步驟正是小弟找尋了站內的文章後還是不會的，要怎樣把DBGrid內的資料填入execl中，再依據execl某個欄位的值在execl畫出橫條圖表 請各位高手提供方法及屬性，感激不盡~~
|
|
wivern
初階會員  發表：31 回覆：63 積分：28 註冊：2002-07-31 發送簡訊給我 |
你好，關於如何畫出橫條圖表的部份，我剛剛寫了一篇文章，
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=40545
你不妨去看看，希望對你有幫助!
|
|
foxrabbit
一般會員 發表：11 回覆：16 積分：5 註冊：2003-11-10 發送簡訊給我 |
|
|
wivern
初階會員 發表：31 回覆：63 積分：28 註冊：2002-07-31 發送簡訊給我 |
抱歉，忘了提一點，xlRows這個常數和其他有用到的常數、函式，是記錄在"excel_2k.h"裡，所以要先把這個檔include進來～
不過我的程式直接用include
typedef enum Constants
{
xlAll = 0xFFFFEFF8,
xlAutomatic = 0xFFFFEFF7,
xlBoth = 1,
xlCenter = 0xFFFFEFF4,
xlChecker = 9,
xlCircle = 8,
xlCorner = 2,
xlCrissCross = 16,
xlCross = 4,
xlDiamond = 2,
xlDistributed = 0xFFFFEFEB,
xlDoubleAccounting = 5,
xlFixedValue = 1,
xlFormats = 0xFFFFEFE6,
xlGray16 = 17,
xlGray8 = 18,
xlGrid = 15,
xlHigh = 0xFFFFEFE1,
xlInside = 2,
xlJustify = 0xFFFFEFDE,
xlLightDown = 13,
xlLightHorizontal = 11,
xlLightUp = 14,
xlLightVertical = 12,
xlLow = 0xFFFFEFDA,
xlManual = 0xFFFFEFD9,
xlMinusValues = 3,
xlModule = 0xFFFFEFD3,
xlNextToAxis = 4,
xlNone = 0xFFFFEFD2,
xlNotes = 0xFFFFEFD0,
xlOff = 0xFFFFEFCE,
xlOn = 1,
xlPercent = 2,
xlPlus = 9,
xlPlusValues = 2,
xlSemiGray75 = 10,
xlShowLabel = 4,
xlShowLabelAndPercent = 5,
xlShowPercent = 3,
xlShowValue = 2,
xlSimple = 0xFFFFEFC6,
xlSingle = 2,
xlSingleAccounting = 4,
xlSolid = 1,
xlSquare = 1,
xlStar = 5,
xlStError = 4,
xlToolbarButton = 2,
xlTriangle = 3,
xlGray25 = 0xFFFFEFE4,
xlGray50 = 0xFFFFEFE3,
xlGray75 = 0xFFFFEFE2,
xlBottom = 0xFFFFEFF5,
xlLeft = 0xFFFFEFDD,
xlRight = 0xFFFFEFC8,
xlTop = 0xFFFFEFC0,
xl3DBar = 0xFFFFEFFD,
xl3DSurface = 0xFFFFEFF9,
xlBar = 2,
xlColumn = 3,
xlCombination = 0xFFFFEFF1,
xlCustom = 0xFFFFEFEE,
xlDefaultAutoFormat = 0xFFFFFFFF,
xlMaximum = 2,
xlMinimum = 4,
xlOpaque = 3,
xlTransparent = 2,
xlBidi = 0xFFFFEC78,
xlLatin = 0xFFFFEC77,
xlContext = 0xFFFFEC76,
xlLTR = 0xFFFFEC75,
xlRTL = 0xFFFFEC74,
xlFullScript = 1,
xlPartialScript = 2,
xlMixedScript = 3,
xlMixedAuthorizedScript = 4,
xlVisualCursor = 2,
xlLogicalCursor = 1,
xlSystem = 1,
xlPartial = 3,
xlHindiNumerals = 3,
xlBidiCalendar = 3,
xlGregorian = 2,
xlComplete = 4,
xlScale = 3,
xlClosed = 3,
xlColor1 = 7,
xlColor2 = 8,
xlColor3 = 9,
xlConstants = 2,
xlContents = 2,
xlBelow = 1,
xlCascade = 7,
xlCenterAcrossSelection = 7,
xlChart4 = 2,
xlChartSeries = 17,
xlChartShort = 6,
xlChartTitles = 18,
xlClassic1 = 1,
xlClassic2 = 2,
xlClassic3 = 3,
xl3DEffects1 = 13,
xl3DEffects2 = 14,
xlAbove = 0,
xlAccounting1 = 4,
xlAccounting2 = 5,
xlAccounting3 = 6,
xlAccounting4 = 17,
xlAdd = 2,
xlDebugCodePane = 13,
xlDesktop = 9,
xlDirect = 1,
xlDivide = 5,
xlDoubleClosed = 5,
xlDoubleOpen = 4,
xlDoubleQuote = 1,
xlEntireChart = 20,
xlExcelMenus = 1,
xlExtended = 3,
xlFill = 5,
xlFirst = 0,
xlFloating = 5,
xlFormula = 5,
xlGeneral = 1,
xlGridline = 22,
xlIcons = 1,
xlImmediatePane = 12,
xlInteger = 2,
xlLast = 1,
xlLastCell = 11,
xlList1 = 10,
xlList2 = 11,
xlList3 = 12,
xlLocalFormat1 = 15,
xlLocalFormat2 = 16,
xlLong = 3,
xlLotusHelp = 2,
xlMacrosheetCell = 7,
xlMixed = 2,
xlMultiply = 4,
xlNarrow = 1,
xlNoDocuments = 3,
xlOpen = 2,
xlOutside = 3,
xlReference = 4,
xlSemiautomatic = 2,
xlShort = 1,
xlSingleQuote = 2,
xlStrict = 2,
xlSubtract = 3,
xlTextBox = 16,
xlTiled = 1,
xlTitleBar = 8,
xlToolbar = 1,
xlVisible = 12,
xlWatchPane = 11,
xlWide = 3,
xlWorkbookTab = 6,
xlWorksheet4 = 1,
xlWorksheetCell = 3,
xlWorksheetShort = 5,
xlAllExceptBorders = 6,
xlLeftToRight = 2,
xlTopToBottom = 1,
xlVeryHidden = 2,
xlDrawingObject = 14
} Constants; typedef enum XlBorderWeight
{
xlHairline = 1,
xlMedium = 0xFFFFEFD6,
xlThick = 4,
xlThin = 2
} XlBorderWeight; typedef enum XlLineStyle
{
xlContinuous = 1,
xlDash = 0xFFFFEFED,
xlDashDot = 4,
xlDashDotDot = 5,
xlDot = 0xFFFFEFEA,
xlDouble = 0xFFFFEFE9,
xlSlantDashDot = 13,
xlLineStyleNone = 0xFFFFEFD2
} XlLineStyle; typedef enum XlEditionOptionsOption
{
xlAutomaticUpdate = 4,
xlCancel = 1,
xlChangeAttributes = 6,
xlManualUpdate = 5,
xlOpenSource = 3,
xlSelect = 3,
xlSendPublisher = 2,
xlUpdateSubscriber = 2
} XlEditionOptionsOption; typedef enum XlChartType
{
xlColumnClustered = 51,
xlColumnStacked = 52,
xlColumnStacked100 = 53,
xl3DColumnClustered = 54,
xl3DColumnStacked = 55,
xl3DColumnStacked100 = 56,
xlBarClustered = 57,
xlBarStacked = 58,
xlBarStacked100 = 59,
xl3DBarClustered = 60,
xl3DBarStacked = 61,
xl3DBarStacked100 = 62,
xlLineStacked = 63,
xlLineStacked100 = 64,
xlLineMarkers = 65,
xlLineMarkersStacked = 66,
xlLineMarkersStacked100 = 67,
xlPieOfPie = 68,
xlPieExploded = 69,
xl3DPieExploded = 70,
xlBarOfPie = 71,
xlXYScatterSmooth = 72,
xlXYScatterSmoothNoMarkers = 73,
xlXYScatterLines = 74,
xlXYScatterLinesNoMarkers = 75,
xlAreaStacked = 76,
xlAreaStacked100 = 77,
xl3DAreaStacked = 78,
xl3DAreaStacked100 = 79,
xlDoughnutExploded = 80,
xlRadarMarkers = 81,
xlRadarFilled = 82,
xlSurface = 83,
xlSurfaceWireframe = 84,
xlSurfaceTopView = 85,
xlSurfaceTopViewWireframe = 86,
xlBubble = 15,
xlBubble3DEffect = 87,
xlStockHLC = 88,
xlStockOHLC = 89,
xlStockVHLC = 90,
xlStockVOHLC = 91,
xlCylinderColClustered = 92,
xlCylinderColStacked = 93,
xlCylinderColStacked100 = 94,
xlCylinderBarClustered = 95,
xlCylinderBarStacked = 96,
xlCylinderBarStacked100 = 97,
xlCylinderCol = 98,
xlConeColClustered = 99,
xlConeColStacked = 100,
xlConeColStacked100 = 101,
xlConeBarClustered = 102,
xlConeBarStacked = 103,
xlConeBarStacked100 = 104,
xlConeCol = 105,
xlPyramidColClustered = 106,
xlPyramidColStacked = 107,
xlPyramidColStacked100 = 108,
xlPyramidBarClustered = 109,
xlPyramidBarStacked = 110,
xlPyramidBarStacked100 = 111,
xlPyramidCol = 112,
xl3DColumn = 0xFFFFEFFC,
xlLine = 4,
xl3DLine = 0xFFFFEFFB,
xl3DPie = 0xFFFFEFFA,
xlPie = 5,
xlXYScatter = 0xFFFFEFB7,
xl3DArea = 0xFFFFEFFE,
xlArea = 1,
xlDoughnut = 0xFFFFEFE8,
xlRadar = 0xFFFFEFC9
} XlChartType; typedef enum XlChartItem
{
xlDataLabel = 0,
xlChartArea = 2,
xlSeries = 3,
xlChartTitle = 4,
xlWalls = 5,
xlCorners = 6,
xlDataTable = 7,
xlTrendline = 8,
xlErrorBars = 9,
xlXErrorBars = 10,
xlYErrorBars = 11,
xlLegendEntry = 12,
xlLegendKey = 13,
xlShape = 14,
xlMajorGridlines = 15,
xlMinorGridlines = 16,
xlAxisTitle = 17,
xlUpBars = 18,
xlPlotArea = 19,
xlDownBars = 20,
xlAxis = 21,
xlSeriesLines = 22,
xlFloor = 23,
xlLegend = 24,
xlHiLoLines = 25,
xlDropLines = 26,
xlRadarAxisLabels = 27,
xlNothing = 28,
xlLeaderLines = 29,
xlDisplayUnitLabel = 30,
xlPivotChartFieldButton = 31,
xlPivotChartDropZone = 32
} XlChartItem;
typedef enum XlRowCol
{
xlColumns = 2,
xlRows = 1
} XlRowCol; typedef enum XlEnableSelection
{
xlNoRestrictions = 0,
xlUnlockedCells = 1,
xlNoSelection = 0xFFFFEFD2
} XlEnableSelection;
typedef enum XlOrientation
{
xlDownward = 0xFFFFEFB6,
xlHorizontal = 0xFFFFEFE0,
xlUpward = 0xFFFFEFB5,
xlVertical = 0xFFFFEFBA
} XlOrientation;
這些是我程式中有用到的常數，你可以複製到自訂的.h檔裡，或是直接放在程式前面~這樣應該就可以了~ 發表人 - wivern 於 2003/11/17 13:38:38
|
|
foxrabbit
一般會員 發表：11 回覆：16 積分：5 註冊：2003-11-10 發送簡訊給我 |
發表時間：2003-11-10 15:06:02
IP:61.218.xxx.xxx 未訂閱
系統時間：2024-06-29 4:45:07
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |