ÔõôÔÚ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
Ïà¹ØÎÊ´ð£º
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4
'³õÊ¼×ø±ê
x = 1
y = 4
'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
ÎÒÊÇÒ»¸öÐÂÊÖ£¬ÇëÎÊÔõôÑù½«Ò»¸öVBµÄÍøÒ³¸Ä³ÉC#µÄ£¿ÍøÕ¾µÄ½çÃæ£¬¹¦Äܶ¼²»ÐèÒª¸Ä±ä£¬Ö»ÐèÒª°Ñºǫ́´úÂë»»³ÉC#µÄ£¬µ«ÊÇÎÒÖ»ÓÐÒѱàÒëºÃµÄ½çÃæ´úÂ롣ʱ¼ä±È½Ï½ô£¬ÔõôÑùÓñȽϼòµ¥µÄ·½·¨ÊµÏÖ£¿Ð»Ð»£¡
vs2008²»ÊÇ×Ô´øÒ»¸ö ......