¨â­Ó"¿W¥ß"¹B§@ªºExcel¬¡­¶Á¡¦p¦ó¥ÎDDE¤¬¶Ç¸ê°T??

samsung2888

¤p§Ì¦³¨â­ÓExcel ÀÉ®×¥²¶·¿W¥ß¶}Excel ¥h¹B§@µ{¦¡.....¦]¬°¶}³æ¤@Excelµ{¦¡·|¥X¿ù~
§Úª¾¹D¤@­ÓExcel¶}¨â­ÓÀÉ®×¥i¥H¥ÎDDE¦r¦ê¥´¦b®æ¤l¸Ì«K¥i¤¬¶Ç¸ê®Æ,¦ý¿W¥ß¶}¨â­ÓExcel´NµLªk¶Ç°e¸ê®Æ....
³oºØ±¡ªp§Ú¬O§_»Ý­n¥Î¨ìAPI¥h³s±µ¨â¥»¿W¥ßªº¹B§@ªº¬¡­¶Á¡?§Þ³N¤W¥i¦æ¶Ü?ÁÂÁ¦U¦ì¤j¤j
ps:§Ú¤£·Q¥Îcsv¥h¤¬¶Ç¸ê®Æ....­n§Y®Éªº

yangjie

¦^´_ 10# GBKEE
º}«G
¸U¤À·P¿E  GBKEEª©¤j

GBKEE

¦^´_ 8# yangjie

1. Private Sub CommandButton4_Click()
   
2.     With New Application
   
3.         .Visible = True
   
4.        .Workbooks.Open (ThisWorkbook.Path & "\B.xls")
   
5.        .Workbooks("B.xls").Sheets(1).Cells.Copy
   
6.         With ThisWorkbook.Sheets(1)
   
7.             .Range("A1").Select
   
8.             .PasteSpecial Format:="XML ¸Õºâªí"
   
9.         End With
   
10.        .Application.CutCopyMode = False
    
11.         .Quit
    
12.     End With
    
13. End Sub

½Æ»s¥N½X

barrykuo

¦^´_ 7# stillfish00
¦^stillfish00¤j¤j¡AÁÂÁ±z!
¥i§Ú¯uªº¦s¤@­Ó¤å¥ó¥s[book1.xls]¡A¦Ó¥B¦s¦b¥Ø¿ý¬°[D:\programs©³¤U]¡A«öGBKEE¤j¤jµ{§Ç°õ¦æEx¥¨¶°¥X²{¿ù»~°T®§¡×¡u°õ¦æ¶¥¬q¿ù»~424¡v»¡©ú¦¹Ä²»Ý­nª«¥ó¡C

©Ò¥H¤£À´Ex()©³¤U³o¼Ë¼g¬O¤£¬O¤£¹ï¡AAPP.Workbooks("D:\programs\BOOK1.XLS").Sheets(1).[A1]¡C
·PÁ§A­Ì!

yangjie

¦^´_ 6# yangjie
¦Û¤v Try «Ü¤[ ²×©ó¥i cells.copy
¥\¤O®t¡A©Ò¥H«Üªø
Private Sub CommandButton4_Click()
      Set wb = ThisWorkbook
      wb.Activate
      Application.Visible = True
      APP.Visible = True
      Application.DisplayAlerts = False
      Set wb1 = APP.Workbooks.Open(ThisWorkbook.Path & "\B.xls", True, False)
      wb1.Activate
      APP.Workbooks(1).Sheets(1).Activate
      APP.Cells.Copy
      wb.Activate
      Windows("A.xls").Activate
      Sheets(1).Cells.ClearContents
      Cells(1, 1).Select
      ActiveSheet.Paste
      APP.CutCopyMode = False
      Application.CutCopyMode = False
      wb.Save
      APP.Quit
      Sheets(1).Cells(1, 1).Activate
      Application.DisplayAlerts = True
      Application.Visible = False
End Sub
­Y­ncopy  ¦h­¶ ´N²Ö¤F

stillfish00

¦^´_ 5# barrykuo
Ex()¤¤   Workbooks("D:\programs\BOOK1.XLS") ¿ù»~
§ï¬°
Workbooks("BOOK.XLS") ©Î Workbooks(1)

yangjie

¦^´_ 3# GBKEE
GBKEE¤j¤j¡A§A¦n¡I
«ö±zªºµ{§Ç
¦Û¤v½m²ß
Private Sub CommandButton4_Click()
    Set wb = ThisWorkbook
    Application.Visible = True
    APP.Visible = True
    APP.Workbooks.Open ThisWorkbook.Path & "\B.xls"
    APP.Workbooks("\B.xls").Sheets(1).Cells.Copy wb.Sheets(1).Cells     '°»¿ù¨ì¦¹¦C
    'Set APP = Nothing
    Application.Visible = False
End Sub
1.¦p¦ó¥i±NWorkbooks("\B.xls").Sheets(1).Cells ¾ã­Ócopy ¨ì wb.Sheets(1).
    ¥i¥Î CopyAs ?
2.APP.Workbooks("\B.xls").Sheets(1)¥i¼g¤J¶Ü?
  ·q½Ð«ü¾É

barrykuo

¦^´_ 3# GBKEE
GBKEE¤j¤j¡A§A¦n¡I
«ö±zªºµ{§Ç
¦pªGBOOK1.XLS©ñ¦b¬Y­Ó¥Ø¿ý¤U

1. Public APP As New Application
   
2. Private Sub Workbook_Open()
   
3.         APP.Visible = True    '²Ä¤G­ÓExcel: Åã¥Ü
   
4.         APP.Workbooks.Open "D:\programs\BOOK1.XLS" '²Ä¤G­ÓExcel:¶}±Ò¬¡­¶Ã¯
   
5. End Sub

½Æ»s¥N½X

µ²ªG¤U­±°õ¦æ¥X²{¿ù»~°T®§¡×¡u°õ¦æ¶¥¬q¿ù»~424¡v»¡©ú¦¹Ä²»Ý­nª«¥ó¡C

1. Sub Ex()
   
2.     ThisWorkbook.Sheets(1).[A1] = APP.Workbooks("D:\programs\BOOK1.XLS").Sheets(1).[A1]
   
3. End Sub

½Æ»s¥N½X

½Ð°Ý­þ¸Ì¥X¿ù¡H

samsung2888

¦^´_ 3# GBKEE

GBKEE¤j¤j....§A¤Ó¼F®`¤F!!!§Ú´N¬O­n§ä³o­Ó¤èªk!!³o°ÝÃD§xÂZ¤F§Ú«Ü¤[....ªGµM¬O¶W¯Åª©¥D....¯uªº«D±`·P®¦.....ÁÂÁÂ!!!!:handshake

GBKEE

¦^´_ 1# samsung2888
²Ä¤@­ÓExcel: ThisWorkbookªºµ{¦¡½X

1. Public APP As New Application
   
2. Private Sub Workbook_Open()
   
3.         APP.Visible = True    '²Ä¤G­ÓExcel: Åã¥Ü
   
4.         APP.Workbooks.Open ("D:\BOOK1.XLS") ²Ä¤G­ÓExcel:¶}±Ò¬¡­¶Ã¯
   
5. End Sub
   

½Æ»s¥N½X

1. Sub Ex()
   
2.     ThisWorkbook.Sheets(1).[A1] = APP.Workbooks(1).Sheets(1).[A1]
   
3. End Sub

½Æ»s¥N½X