Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VB ±£´æExcelÎļþÎÊÌâ

±£´æ³öµÄExcelÊý¾ÝÎļþ£¬ÏëÔÚ³ÌÐòÖоÍת»¯³ÉÊýÖµÀàÐÍ
Äܹ»ÔÚ´ò¿ªExcelÎļþºó£¬
Äܹ»Ö±½ÓÀûÓÃÊý¾Ý»­Í¼£¬¶ø²»ÐèÒªÔÙ´Îת»¯Êý¾ÝÀàÐÍ
³ÌÐòÖеÄÊý¾ÝÊÇ´æ·ÅÔÚ¶þάÊý×éÀïµÄ£¬È»ºóÔÙ±£´æÔÚExcelÖÐ
Çë½Ì´óÏÀÃÇ£¬¸ÃÔõôһ²½µ½Î»¡«£¡
дµ½csvÎļþÀïÃæ°É

²»ÐУ¬ÒªÇó±£´æµÄ¸ñʽ¾ÍÊÇxls,°ïæÏëÏë°ì·¨°É

ExcelµÄRange¶ÔÏóÓÐÒ»¸öValueÊôÐÔ,¸ÃÊôÐÔÖ¸ÏòÒ»¸öϱêϽçΪ1µÄ¶þάVariantÊý×é,LZ¿ÉÒÀ´Ë¿ìËÙ¶ÁдExcelµÄµ¥Ôª¸ñµÄÖµ.

Ö±½Ó½«Êý×éÖеÄÊý¾Ý»æÖÆÍ¼ÐξͿÉÒÔÁ˰ɣ¿

ÒýÓÃ
Ö±½Ó½«Êý×éÖеÄÊý¾Ý»æÖÆÍ¼ÐξͿÉÒÔÁ˰ɣ¿

²»Êǵģ¬ÏÈÊDZ£´æ³öһϵÁеÄÊý¾Ý£¬È»ºó»­Í¼ÐÐÊÇÓû§×Ô¼ºµÄÐèÇó
ÏÖÔÚÒª×öµÄ£¬¾ÍÊÇÌæÓû§Ê¡È¥Ëûת»¯Êý¾ÝÀàÐ͵IJÙ×÷
Êý¾ÝÊÇÐèÒªµÄ£¬²»½ö½öÊÇÓÐͼÐΡ«£¡

Ŷ¡«¡«¡«¡«¡«

´´½¨excel¶ÔÏ󣬿ÉÒÔ´ò¿ªÒ»¸öÄ£°åÎļþ È»ºó²Ù×÷¡£createobject("excel.application")£¬Õâ¸öÀïÃæÌṩÁËn¶àÀ࣬»ù±¾ÊÖ¹¤¿ÉÒÔ²Ù×÷µÄ¶¼¿ÉÒÔÓôúÂëʵÏÖ£¬Òª¿´Àà½á¹¹¾ÍÖ±½ÓÔÚexcelÖдò¿ªvba£¬Ëæ±ãн¨¸öºê£¬È»ºóÔÚÄǸö¿áËÆvbµÄide¹¤¾ßÀïÃæ°´f2

Dim XLApp As New Excel.Application
Dim XLWorkBook As New Excel.Workbook
Dim XLWorkSheet As New Excel.Worksheet
Set XLApp = CreateObject("Excel.Application")
Set XLWorkBook = XLApp.Workbooks.Add
Set XLWorkSheet = XLWorkBook.Worksheets(1)

XLApp.Visible = True

For j = 0 To MSFlexGrid1.Cols - 1
If j = 0 Or j = MSFlexGrid1.Cols - 1 Then
    MSFlexGrid1.Col = j
    For i =


Ïà¹ØÎÊ´ð£º

ΪʲôCдDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷ÓÃ

ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿

1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......

VB »ñÈ¡ÍøÒ³Ô´´úÂë

Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......

vb´òÓ¡ÎÊÌâ


Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4

'³õÊ¼×ø±ê
x = 1
y = 4


'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......

VB¹ý³Ì¿ØÖÆ

Ôõôµã»÷form2Éϵİ´Å¥ ¿ÉÒÔ½áÊøform1ÉÏÕýÔÚ½øÐеÄÑ­»· 

form1ÀïÃæÌí¼ÓÒ»¸ö±äÁ¿£º
Public bEnd As Boolean

Ñ­»·´úÂëÌí¼Ó£º
bEnd = False
Do
    ...
    If ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ