¤W¤@½g¥DÃD :: ¤U¤@½g¥DÃD |
µoªí¤H |
¤º®e |
personmen
µù¥U®É¶¡: 2003-09-22 ¤å³¹: 45
²Ä 1 ¼Ó
|
µoªí©ó: ¬P´Á¥| ¥|¤ë 15, 2004 6:02 pm ¤å³¹¥DÃD: ½Ð°Ý¦p¦ó¥i¥H¦b¶×¥Xªºexcel¤¤³]©wexcelªº¤½¦¡? |
|
|
½Ð°Ý, ¦³¨S¦³¿ìªk¥i¥HÅýVFP©Ò滙¥XªºEXCELÀɮפ¤, ¬O¦³¤½¦¡ªº? ¦Ó¤£»Ýn¦b滙¥XEXCEL«á, ¦A¥hEXCEL¤¤³]©w¤½¦¡...
ÁÂÁÂ... |
|
¦^³»ºÝ |
|
|
¦¶¨|¿³
µù¥U®É¶¡: 2003-08-25 ¤å³¹: 661 ¨Ó¦Û: ¥x¤¤¥«¤j¨½°Ï
²Ä 2 ¼Ó
|
µoªí©ó: ¬P´Á¤ ¥|¤ë 16, 2004 2:39 am ¤å³¹¥DÃD: |
|
|
¥N½X: | M_cXLSFile = GETFILE("XLS")
M_oExcelSheet = GETOBJECT('',"EXCEL.SHEET")
__oApplicationOfWorkSheet = M_oExcelSheet.APPLICATION
__oApplicationOfWorkSheet.WORKBOOKS.OPEN(M_cXLSFile)
* >> ¶ñ¤J±M¥Î¤½¦¡
WITH __oApplicationOfWorkSheet.Sheets("Sheet1")
.CELLS(4,5).Value = "=SUM(E1..E3)" && ¦b Sheet1 ªº E4 Àx¦s®æ¶ñ¤J§Anªº¤½¦¡(³o¥u¬OÁ|Ó¨Ò¤l¡A¹ê»Ú¥Ñ§A¦Û¤v¨M©w)
ENDWITH
IF VARTYPE(__oApplicationOfWorkSheet) = "O"
IF !ISNULL(__oApplicationOfWorkSheet)
__oApplicationOfWorkSheet.Application.DisplayAlerts = .F.
__oApplicationOfWorkSheet.ActiveWindow.Close(.T.,M_cXLSFile)
__oApplicationOfWorkSheet.Application.DisplayAlerts = .T.
ENDIF
ENDIF |
_________________ §Æ±æ¦³§ó¦h¤H¨Ó°Ñ»P
VFP wiki - »Ýn¤j®a¤@°_§¹¦¨ªºVFP¹q¤l®Ñ»PFAQ
¦¶¨|¿³ ¦b ¬P´Á¤ ¥|¤ë 16, 2004 3:39 pm §@¤F²Ä 1 ¦¸×§ï |
|
¦^³»ºÝ |
|
|
personmen
µù¥U®É¶¡: 2003-09-22 ¤å³¹: 45
²Ä 3 ¼Ó
|
µoªí©ó: ¬P´Á¤ ¥|¤ë 16, 2004 10:10 am ¤å³¹¥DÃD: |
|
|
±z¦n, ¤£¦n·N«ä, ·Q¦A½Ð°Ý...
·PÁÂ...
¤Þ¨¥¦^ÂÐ: |
M_cXLSFile = GETFILE("XLS") ===> XLS «üªº¬O¸ÓEXCELÀɮצì¸m¶Ü?
M_oExcelSheet = GETOBJECT('',"EXCEL.SHEET") ===>EXCEL.SHEET «üªº¬OÀɮצì¸m¶Ü?
__oApplicationOfWorkSheet = M_oExcelSheet.APPLICATION
__oApplicationOfWorkSheet.WORKBOOKS.OPEN(M_cXLSFile)
* >> ¶ñ¤J±M¥Î¤½¦¡
WITH __oApplicationOfWorkSheet.Sheets("Sheet1")
.CELLS(5,4).Value = "=SUM(E1..E3)" && ¦b Sheet1 ªº E4 Àx¦s®æ¶ñ¤J§Anªº¤½¦¡(³o¥u¬OÁ|Ó¨Ò¤l¡A¹ê¬I¥Ñ§A¦Û¤v¨M©w) ===>Y§Ú©Ò¦³EªºÄæ¦ì³£nµ¥©óCÄæ+DÄ檺¸Ü, ¸Ó¦p¦ó°µ©O?
ENDWITH
IF VARTYPE(__oApplicationOfWorkSheet) = "O"
IF !ISNULL(__oApplicationOfWorkSheet)
__oApplicationOfWorkSheet.Application.DisplayAlerts = .F.
__oApplicationOfWorkSheet.ActiveWindow.Close(.T.,M_cXLSFile)
__oApplicationOfWorkSheet.Application.DisplayAlerts = .T.
ENDIF
ENDIF
|
|
|
¦^³»ºÝ |
|
|
personmen
µù¥U®É¶¡: 2003-09-22 ¤å³¹: 45
²Ä 4 ¼Ó
|
µoªí©ó: ¬P´Á¤ ¥|¤ë 16, 2004 11:27 am ¤å³¹¥DÃD: |
|
|
±z¦n, ¤£¦n·N«ä, 쥻±z©Ò´£¨Ñ¤§½d¨Ò, §Ú¤w¸g´ú¦¨¥\¤F, ¯u¬O·PÁÂ...
²{¦b´N¬O·Q½Ð°Ý, Y§Ú©Ò¦³ E ªºÄæ¦ì³£nµ¥©ó C + D ªº¸Ü, ¸Ó¦p¦ó°µ©O?
(E2 = C2 + D2, E3 = C3 + E3, E4 = C4 + D4...¥H¦¹Ãþ±À) |
|
¦^³»ºÝ |
|
|
¦¶¨|¿³
µù¥U®É¶¡: 2003-08-25 ¤å³¹: 661 ¨Ó¦Û: ¥x¤¤¥«¤j¨½°Ï
²Ä 5 ¼Ó
|
µoªí©ó: ¬P´Á¤ ¥|¤ë 16, 2004 2:30 pm ¤å³¹¥DÃD: |
|
|
¥N½X: | * §Ú¤£ª¾¹D§An?#125;±ÒþÓÀɮסA©Ò¥H¨Ï¥Î GETFILE() ¨ç¼Æ¥Ñ§A¬D¡F
* Y§Aª¾¹Dn?#125;±ÒªºÀɮסA¨º´N±N M_cXLSFile = §An?#125;±ÒªºÀÉ®×
M_cXLSFile = GETFILE("XLS")
M_oExcelSheet = GETOBJECT('',"EXCEL.SHEET")
__oApplicationOfWorkSheet = M_oExcelSheet.APPLICATION
__oApplicationOfWorkSheet.WORKBOOKS.OPEN(M_cXLSFile)
* >> ¶ñ¤J±M¥Î¤½¦¡
WITH __oApplicationOfWorkSheet
WITH .Sheets("Sheet1")
.CELLS(1,5).Value = "=C1+D1" && ¦b E1 ¶ñ¤J¤½¦¡
.Range("E1").Copy && ½Æ»s E1 ªº¤½¦¡
.Range("E2:E18").Select && n½Æ»sªº½d³ò¡AY§A¯uªºn E Äæ¥þ³¡ªº¸Ü¡AE2:E18 §ï¬° E:E
ENDWITH
.ActiveSheet.Paste && ¶K¤W
ENDWITH
IF VARTYPE(__oApplicationOfWorkSheet) = "O"
IF !ISNULL(__oApplicationOfWorkSheet)
__oApplicationOfWorkSheet.Application.DisplayAlerts = .F.
__oApplicationOfWorkSheet.ActiveWindow.Close(.T.,M_cXLSFile)
__oApplicationOfWorkSheet.Application.DisplayAlerts = .T.
ENDIF
ENDIF |
_________________ §Æ±æ¦³§ó¦h¤H¨Ó°Ñ»P
VFP wiki - »Ýn¤j®a¤@°_§¹¦¨ªºVFP¹q¤l®Ñ»PFAQ
¦¶¨|¿³ ¦b ¬P´Á¤ ¥|¤ë 16, 2004 3:40 pm §@¤F²Ä 1 ¦¸×§ï |
|
¦^³»ºÝ |
|
|
personmen
µù¥U®É¶¡: 2003-09-22 ¤å³¹: 45
²Ä 6 ¼Ó
|
µoªí©ó: ¬P´Á¤ ¥|¤ë 16, 2004 2:59 pm ¤å³¹¥DÃD: |
|
|
¶â, §Ú¤jP¤WÁA¸Ñ¤F...
¤£¦n·N«ä, ·Q¦A½Ð°Ý...
1.¦p¦ó¯à§PÂ_EXCEL¦@¦³´Xµ§¸ê®Æ?
2.½Ð°Ý¥H¤U³o¬qµ{¦¡ªº¥Î·N¬O, ¥i§_³Â·Ð»¡©ú¤@¤U?
IF VARTYPE(__oApplicationOfWorkSheet) = "O"
IF !ISNULL(__oApplicationOfWorkSheet)
__oApplicationOfWorkSheet.Application.DisplayAlerts = .F.
__oApplicationOfWorkSheet.ActiveWindow.Close(.T.,M_cXLSFile)
__oApplicationOfWorkSheet.Application.DisplayAlerts = .T.
ENDIF
¦A¦¸·PÁ±z, ¸Ñ¨M¤F§ÚªººÃ°Ý... |
|
¦^³»ºÝ |
|
|
¦¶¨|¿³
µù¥U®É¶¡: 2003-08-25 ¤å³¹: 661 ¨Ó¦Û: ¥x¤¤¥«¤j¨½°Ï
²Ä 7 ¼Ó
|
µoªí©ó: ¬P´Á¤ ¥|¤ë 16, 2004 3:18 pm ¤å³¹¥DÃD: |
|
|
1.¦p¦ó¯à§PÂ_EXCEL¦@¦³´Xµ§¸ê®Æ?
§Ú¤£ª¾¹D§A¦b EXCEL ¤¤ªº¸ê®Æ¬O¦p¦ó«Ø¥ßªº¡A¬O¥Ñ FOXPRO µ{¦¡¼g¶i¥hªº©O¡HÁÙ¬O¸Ó EXCEL Àɤ¤´N¤w¸g«Ø¥ßªº©O¡H
Y¬O FOXPRO µ{¦¡¼g¶i¥h¡A¨º§A´NÀ³¸Óª¾¹D¦³¦h¤Öµ§¸ê®Æ¤~¹ï¡FY¬O EXCEL Àɤ¤´N¤w¸g«Ø¥ßªº¡A¨º§AÀ³¸Ó¦b EXCEL ³]¤@ÓÀx¦s®æ¨Ó°O¿ýµ§¼Æ¡A¦Ü©ó¦p¦ó¦b EXCEL ¤¤±oª¾¡A§A´N±o¦n¦n¨Ï¥Î EXCEL ¦Û¤v´£¨Ñªº¨ç¼Æ¨ú§â¥¦¨D¥X
2.½Ð°Ý¥H¤U³o¬qµ{¦¡ªº¥Î·N¬O, ¥i§_³Â·Ð»¡©ú¤@¤U?
IF VARTYPE(__oApplicationOfWorkSheet) = "O" && ¸Óª«¥óÅܼƬO§_¦s¦b
IF !ISNULL(__oApplicationOfWorkSheet) && ¸Óª«¥ó¬O§_¤wÄÀ©ñ(°O±o¦n¹³¬O³oÓ·N«ä)
__oApplicationOfWorkSheet.Application.DisplayAlerts = .F. && Ãö³¬¤U¤@¥yÀx¦sÀÉ®×®É EXCEL ·|¥X¥X²{¸ß°Ýµøµ¡
__oApplicationOfWorkSheet.ActiveWindow.Close(.T.,M_cXLSFile) && Àx¦sÀÉ®×
__oApplicationOfWorkSheet.Application.DisplayAlerts = .T.
ENDIF _________________ §Æ±æ¦³§ó¦h¤H¨Ó°Ñ»P
VFP wiki - »Ýn¤j®a¤@°_§¹¦¨ªºVFP¹q¤l®Ñ»PFAQ |
|
¦^³»ºÝ |
|
|
personmen
µù¥U®É¶¡: 2003-09-22 ¤å³¹: 45
²Ä 8 ¼Ó
|
µoªí©ó: ¬P´Á¤ ¥|¤ë 16, 2004 3:22 pm ¤å³¹¥DÃD: |
|
|
¤£¦n·N«ä,
¦b°õ¦æ
.ActiveSheet.Paste && ¶K¤W
³oµ{¦¡®É¥X²{³oÓ¿ù»~...
OLE¿ù»~µ{¦¡½X0X80020006:UNKNOWN NAME...
¤£ª¾¬Oþ¨à¥X¤F°ÝÃD©O? |
|
¦^³»ºÝ |
|
|
¦¶¨|¿³
µù¥U®É¶¡: 2003-08-25 ¤å³¹: 661 ¨Ó¦Û: ¥x¤¤¥«¤j¨½°Ï
²Ä 9 ¼Ó
|
µoªí©ó: ¬P´Á¤ ¥|¤ë 16, 2004 3:32 pm ¤å³¹¥DÃD: |
|
|
¥N½X: | WITH __oApplicationOfWorkSheet
WITH .Sheets("Sheet1")
.CELLS(1,5).Value = "=C1+D1"
.Range("E1").Copy
.Range("E2:E18").Select
ENDWITH
.ActiveSheet.Paste
ENDWITH |
§A½T©w§A¨S§Û¿ùµ{¦¡½X¶Ü¡H _________________ §Æ±æ¦³§ó¦h¤H¨Ó°Ñ»P
VFP wiki - »Ýn¤j®a¤@°_§¹¦¨ªºVFP¹q¤l®Ñ»PFAQ |
|
¦^³»ºÝ |
|
|
personmen
µù¥U®É¶¡: 2003-09-22 ¤å³¹: 45
²Ä 10 ¼Ó
|
µoªí©ó: ¬P´Á¤ ¥|¤ë 16, 2004 3:42 pm ¤å³¹¥DÃD: |
|
|
¦¶¨|¿³ ¼g¨ì: | ¥N½X: | WITH __oApplicationOfWorkSheet
WITH .Sheets("Sheet1")
.CELLS(1,5).Value = "=C1+D1"
.Range("E1").Copy
.Range("E2:E18").Select
ENDWITH
.ActiveSheet.Paste ===>½Ð°Ý¶K¤Wªºµ{¦¡¤@©wn©ñ¦b³o¨à¶Ü? ¤£¯à©ñ¦b¤W¤@Ó°j°é¤¤?
ENDWITH |
§A½T©w§A¨S§Û¿ùµ{¦¡½X¶Ü¡H |
|
|
¦^³»ºÝ |
|
|
¦¶¨|¿³
µù¥U®É¶¡: 2003-08-25 ¤å³¹: 661 ¨Ó¦Û: ¥x¤¤¥«¤j¨½°Ï
²Ä 11 ¼Ó
|
|
¦^³»ºÝ |
|
|
personmen
µù¥U®É¶¡: 2003-09-22 ¤å³¹: 45
²Ä 12 ¼Ó
|
µoªí©ó: ¬P´Á¤ ¥|¤ë 16, 2004 4:09 pm ¤å³¹¥DÃD: |
|
|
©Ò¥HY§Ú¦³¤GÓ¥H¤WÄæ¦ìn½Æ»s®æ¦¡ªº¸Ü, ¥H¤Uªºµ{¦¡´Nn¾ã¬qµ{¦¡ COPY ¤GÓ¥H¤WÅo?
personmen ¼g¨ì: | ¦¶¨|¿³ ¼g¨ì: | ¥N½X: | WITH __oApplicationOfWorkSheet
WITH .Sheets("Sheet1")
.CELLS(1,5).Value = "=C1+D1"
.Range("E1").Copy
.Range("E2:E18").Select
ENDWITH
.ActiveSheet.Paste ===>½Ð°Ý¶K¤Wªº?#123;¦¡¤@©wn©ñ¦b³o¨à¶Ü? ¤£¯à©ñ¦b¤W¤@Ó°j°é¤¤?
ENDWITH |
§A½T©w§A¨S§Û¿ùµ{¦¡½X¶Ü¡H |
|
|
|
¦^³»ºÝ |
|
|
¦¶¨|¿³
µù¥U®É¶¡: 2003-08-25 ¤å³¹: 661 ¨Ó¦Û: ¥x¤¤¥«¤j¨½°Ï
²Ä 13 ¼Ó
|
µoªí©ó: ¬P´Á¤ ¥|¤ë 16, 2004 4:18 pm ¤å³¹¥DÃD: |
|
|
personmen ¼g¨ì: | ©Ò¥HY§Ú¦³¤GÓ¥H¤WÄæ¦ìn½Æ»s®æ¦¡ªº¸Ü, ¥H¤Uªºµ{¦¡´Nn¾ã¬qµ{¦¡ COPY ¤GÓ¥H¤WÅo? |
n³o»ò°µ¤]¬O¥i¥H°Õ¡I¤£¹Ln¬Ý§A¹ê»Ú¤Wªº±¡ªp¦Ó©w¡A«Øij§A¥ý§Q¥Î EXCEL ªº¿ý»s¥¨¶°¥\¯à¡A§â§An°µªº°Ê§@§¹¾ã¿ý»s¤U¨Ó¨Ñµ{¦¡½X¼¶¼gªº°Ñ¦Ò¡C
§Ú¦^µª§A³o¨Çªºµ{¦¡½X¡A§Ú³£¥ý¥Î EXCEL ªº¿ý»s¥¨¶°«á¦AÂର FOXPRO¡AY°Ý§Ú¦p¦ó±oª¾¨âªÌªºÃö«Y¡A¨º´N¬O¬Ý§O¤Hªº¤Î²Ö¿nªº¸gÅç¡C _________________ §Æ±æ¦³§ó¦h¤H¨Ó°Ñ»P
VFP wiki - »Ýn¤j®a¤@°_§¹¦¨ªºVFP¹q¤l®Ñ»PFAQ |
|
¦^³»ºÝ |
|
|
personmen
µù¥U®É¶¡: 2003-09-22 ¤å³¹: 45
²Ä 14 ¼Ó
|
µoªí©ó: ¬P´Á¤ ¥|¤ë 16, 2004 5:31 pm ¤å³¹¥DÃD: |
|
|
ÁA¸Ñ, ÁÂÁÂ~~ |
|
¦^³»ºÝ |
|
|
personmen
µù¥U®É¶¡: 2003-09-22 ¤å³¹: 45
²Ä 15 ¼Ó
|
µoªí©ó: ¬P´Á¤ ¥|¤ë 16, 2004 6:15 pm ¤å³¹¥DÃD: |
|
|
½Ð°Ý¤U±³o¬qµ{¦¡, Y§Ún¦A³]©w¶º, Ãä¬Éµ¥¥\¯àªº¸Ü, µ{¦¡¬On©ñ¦bþ¤@ӰϬq?
WITH __oApplicationOfWorkSheet
***DIFF_QTY
WITH .Sheets("MOD_CHK")
***¶ñ¤J DIFF_QTY ¤½¦¡
.CELLS(2,11).Value = "=J2-G2"
***½Æ»s¤Wz¤½¦¡
.Range("K2").Copy
***¿ï¾Ü©Òn±a¤J¤½¤§¸ê®Æ
.Range("K3:K" + LTRIM(STR(RECCOUNT() + 1))).Select
ENDWITH
***¶K¤W
.ActiveSheet.Paste
ENDWITH
§Ún¥[¤Jªºµ{¦¡...
WITH ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = &²Ó©úÅé,¼Ð·Ç"§ë½u®t²§checkªí"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.75)
.RightMargin = Application.InchesToPoints(0.75)
.TopMargin = Application.InchesToPoints(1)
.BottomMargin = Application.InchesToPoints(1)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
ENDWITH
¦]¬°§Ú¥[¤F¦n´XÓ¦a¤è, ¦ý³£·|¥X²{³oÓ¿ù»~...
OLE¿ù»~µ{¦¡½X0X80020006:UNKNOWN NAME...
©Î
'§ä¤£¨ì§O¦W ACTIVESHEET' |
|
¦^³»ºÝ |
|
|
|