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

ÔõôÔÚVBÖаÑexcelÖеÄÊýµ¼Èëµ½Êý¾Ý¿âÖÐ

ÔõôÔÚVBÖаÑexcelÖеÄÊýµ¼Èëµ½Êý¾Ý¿âÖÐ
Ö±½ÓÔÚvbÖе÷ÓÃÊý¾Ý¿âµÄµ¼È빦ÄܽøÐе¼Èë¡£

×Ô¼º°Ù¶ÈÒ»ÏÂ,´úÂ뺣ÁËÈ¥ÁË,·½·¨Óкöà


²Î¿¼
http://blog.sina.com.cn/s/blog_4a384544010004zk.html

'ÅжÏÊý¾Ý¿âÖбíÊÇ·ñ´æÔÚ
  'ÔÚ
  ɾ³ý±í
  'Èç¹û²»ÔÚ
  Adodc1.RecordSource = "select * into test from [excel 8.0;database=" & App.Path & "\boox1.xls].[sheet1$]"
============
Õâ¸ö×î¼òµ¥ÁË


ÒÔǰ×öµÄ£º


Êý¾ÝÁ¿´óÁ˾ÍÂýËÀÈË

Äã¿´¿´
Private Sub Command3_Click()
'ÕÒ³öEXCELÎļþλÖÃ
CommonDialog1.ShowOpen
Dim data_jbxx As String
data_jbxx = CommonDialog1.FileName
If data_jbxx <> "" Then
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Êý¾Ý.MDB;Persist Security Info=False;Jet OLEDB:Database password=ÃÜÂë"
    Adodc1.RecordSource = "select * from ±íÃû "
    Adodc1.Refresh
    Set xlApp = CreateObject("Excel.Application") '´´½¨EXCELÓ¦ÓÃÀà
    xlApp.Visible = False 'ÉèÖÃEXCEL²»¿É¼û
    Set xlBook = xlApp.Workbooks.Open(data_jbxx) '´ò¿ªEXCEL¹¤×÷²¾
    Set xlsheet = xlBook.Worksheets(1) '´ò¿ªEXCEL¹¤×÷±í
    'xlsheet


Ïà¹ØÎÊ´ð£º

VBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ

ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾ­Í¨¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË&# ......

vb´òÓ¡ÎÊÌâ


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

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


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

VBÈçºÎ×èֹij³ÌÐòÔËÐС££¿

±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£

ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£

È»ºóÔÊÐíºó·ÅÐС£


±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£

¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£

ÉèÖ ......

VBתC#

ÎÒÊÇÒ»¸öÐÂÊÖ£¬ÇëÎÊÔõôÑù½«Ò»¸öVBµÄÍøÒ³¸Ä³ÉC#µÄ£¿ÍøÕ¾µÄ½çÃæ£¬¹¦Äܶ¼²»ÐèÒª¸Ä±ä£¬Ö»ÐèÒª°Ñºǫ́´úÂë»»³ÉC#µÄ£¬µ«ÊÇÎÒÖ»ÓÐÒѱàÒëºÃµÄ½çÃæ´úÂ롣ʱ¼ä±È½Ï½ô£¬ÔõôÑùÓñȽϼòµ¥µÄ·½·¨ÊµÏÖ£¿Ð»Ð»£¡
vs2008²»ÊÇ×Ô´øÒ»¸ö ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ