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²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿
1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......
Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......
Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4
'³õÊ¼×ø±ê
x = 1
y = 4
'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
Ôõôµã»÷form2Éϵİ´Å¥ ¿ÉÒÔ½áÊøform1ÉÏÕýÔÚ½øÐеÄÑ»·
form1ÀïÃæÌí¼ÓÒ»¸ö±äÁ¿£º
Public bEnd As Boolean
Ñ»·´úÂëÌí¼Ó£º
bEnd = False
Do
...
If ......