c_c_lai

¦^´_ 1# loveinput
³Â»¶ºô¯¸¤W¦³Â×´Iªº¸ê°T¥i¨Ñ¬d¸ß»P¶i­×¡C
§Aªº´£°Ý¥i¥H¥h°Ñ¦Ò¡G
´ú¸ÕIP

c_c_lai

¦^´_ 9# GBKEE

1. Set Rng = .Range("C2", .Range("C2").End(xlDown)).Resize(, .Range("C1").End(xlToRight).Column - 2)

½Æ»s¥N½X

»Ý§ï¦¨¡G

1. Set Rng = .Range("C2", .Range("C65535").End(xlUp)).Resize(, .Range("C1").End(xlToRight).Column - 2)

½Æ»s¥N½X

§_«h·|µo¥Í·¸¦ì¡C

c_c_lai

¦^´_ 11# GBKEE
¶¶±a½Ð±Ð±z¡G
¥H¤U´ú¸Õ©ó2003 Excel¤¤¡A ©ó Set cnn «áµo²{ cnn ­È¬° ""¡A
©Ò¥H¦b .Open ®É«K¥X¿ù¤F¡C¦b¤u¨ã->³]©w¤Þ¥Î¶µ¥Ø¤¤­nª`·N¨º¨Ç¶µ¦¸¡H
¦ý¬O¦¹»yªk¦b 2010 Àô¹Ò¤U°õ¦æ³£ OK¡A¥¿½TÀ³¦p¦ó³B¸Ì¡H
P.S. ³o¬O§Ú¦b Excel¤u§@ªí³æ»PAccess¸ê®Æ®wªºVBA¤¬°Ê°ÝÃD ¤¤ªº´£°Ý¡A
     ¦¹³¡¤À¬O¬°¤F­n¦P®É¥H ADODB »yªk¨Ó³B²z¤u§@ªí³æ¤º¤§¸ê®Æ¿ý¦Ó³]©wªº¡C

1. Sub Test()
   
2.     Dim cnn As Object       '  New ADODB.Connection
   
3.     Dim cmd As Object       '  New ADODB.Command
   
4.     Dim rs As Object        '  New ADODB.Recordset
   
5. 
   
6.     Set cnn = CreateObject("ADODB.Connection")
   
7.     Set rs = CreateObject("ADODB.Recordset")
   
8.     Set cmd = CreateObject("ADODB.Command")
   
9. 
   
10.     With cnn
    
11.         If .State = 1 Then .Close    '  adStateOpen
    
12.         
    
13.         .ConnectionString = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" & _
    
14.                             ActiveWorkbook.Path & Application.PathSeparator & ActiveWorkbook.Name
    
15.         .Open     
    
16.     End With
    
17. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 13# GBKEE
ÁÂÁ±z¡I

1. .Open ActiveWorkbook.Path & "\¾÷²¼°O¿ý©ú²Óªí.mdb"

½Æ»s¥N½X

¨Æ¹ê¤W§Ú¨Ã¤£¬O­n¶}±Ò "¾÷²¼°O¿ý©ú²Óªí.mdb"¡A¦Ó¬O­n«ü¦V¤w¶}±Òªº Excel ¥»¨­¡A
¦]¬°±µ¤U¨Ó­n¬d¸ß¡B§R°£¡B·s¼W¡B©Î§ó·sªº¼Ðªº§¡¬°  Excel ¥»¨­«ü©wªº¤u§@ªí³æ
¸ê®Æ¿ý¦Ó«D Access ¸ê®Æ®wªº¸ê®Æ¿ý¡C
ÁÂÁ±z¡I