¨âÓ"¿W¥ß"¹B§@ªºExcel¬¡¶Á¡¦p¦ó¥ÎDDE¤¬¶Ç¸ê°T??
- ©«¤l
- 11
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 51
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2013-11-14
- ³Ì«áµn¿ý
- 2018-8-6
|
¨âÓ"¿W¥ß"¹B§@ªºExcel¬¡¶Á¡¦p¦ó¥ÎDDE¤¬¶Ç¸ê°T??
¤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®Éªº |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 1# samsung2888
½Ð¤W¶ÇÀɮסA§_«hÃø¥H²z¸Ñ§Aªº¯u¥¿°ÝÃD¡C |
|
|
|
|
|
|
- ©«¤l
- 11
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 51
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2013-11-14
- ³Ì«áµn¿ý
- 2018-8-6
|
¦^´_ 3# GBKEE
GBKEE¤j¤j....§A¤Ó¼F®`¤F!!!§Ú´N¬On§ä³oÓ¤èªk!!³o°ÝÃD§xÂZ¤F§Ú«Ü¤[....ªGµM¬O¶W¯Åª©¥D....¯uªº«D±`·P®¦.....ÁÂÁÂ!!!!:handshake |
|
|
|
|
|
|
- ©«¤l
- 39
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 48
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7
- ³nÅ骩¥»
- sp1
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-2-2
- ³Ì«áµn¿ý
- 2014-8-26
|
¦^´_ 3# GBKEE
GBKEE¤j¤j¡A§A¦n¡I
«ö±zªºµ{§Ç
¦pªGBOOK1.XLS©ñ¦b¬Yӥؿý¤U- Public APP As New Application
- Private Sub Workbook_Open()
- APP.Visible = True '²Ä¤GÓExcel: Åã¥Ü
- APP.Workbooks.Open "D:\programs\BOOK1.XLS" '²Ä¤GÓExcel:¶}±Ò¬¡¶Ã¯
- End Sub
½Æ»s¥N½X µ²ªG¤U±°õ¦æ¥X²{¿ù»~°T®§¡×¡u°õ¦æ¶¥¬q¿ù»~424¡v»¡©ú¦¹Ä²»Ýnª«¥ó¡C- Sub Ex()
- ThisWorkbook.Sheets(1).[A1] = APP.Workbooks("D:\programs\BOOK1.XLS").Sheets(1).[A1]
- End Sub
½Æ»s¥N½X ½Ð°Ýþ¸Ì¥X¿ù¡H |
|
¤H¥Í¥u¦³¤T¤Ñ¡A¥u¦³¬¡¦b¤µ¤Ñ³Ì½ñ¹ê
|
|
|
|
|
- ©«¤l
- 258
- ¥DÃD
- 77
- ºëµØ
- 0
- ¿n¤À
- 385
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2010-8-8
- ³Ì«áµn¿ý
- 2021-1-25
|
¦^´_ 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½Ð«ü¾É |
|
|
|
|
|
|
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¦^´_ 5# barrykuo
Ex()¤¤ Workbooks("D:\programs\BOOK1.XLS") ¿ù»~
§ï¬°
Workbooks("BOOK.XLS") ©Î Workbooks(1) |
|
|
|
|
|
|
- ©«¤l
- 258
- ¥DÃD
- 77
- ºëµØ
- 0
- ¿n¤À
- 385
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2010-8-8
- ³Ì«áµn¿ý
- 2021-1-25
|
¦^´_ 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
Yncopy ¦h¶ ´N²Ö¤F |
|
|
|
|
|
|
- ©«¤l
- 39
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 48
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7
- ³nÅ骩¥»
- sp1
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-2-2
- ³Ì«áµn¿ý
- 2014-8-26
|
¦^´_ 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Ì! |
|
¤H¥Í¥u¦³¤T¤Ñ¡A¥u¦³¬¡¦b¤µ¤Ñ³Ì½ñ¹ê
|
|
|
|
|