ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦Û°Ê¸Ñ¶}¬¡­¶Ã¯³]©wªº±K½X (¤£­n¸õ¥Xµøµ¡¨Ó)

[µo°Ý] ¦Û°Ê¸Ñ¶}¬¡­¶Ã¯³]©wªº±K½X (¤£­n¸õ¥Xµøµ¡¨Ó)

2017-09-19_115517.jpg
¦Û°Ê¸Ñ¶}¤u§@ï³]©wªº±K½X.tar (39 KB)
¦@¦³¨â­ÓÀÉ®×
¬¡­¶Ã¯1§ì¨ú¬¡­¶Ã¯2
¬¡­¶Ã¯¦³³]©w±K½X«OÅ@
½Ð°Ý¦p¦ó¨Ï¥ÎVBA¦Û°Ê¸Ñ¶}¬¡­¶Ã¯³]©wªº±K½X¡A¤£­n¸õ¥Xµøµ¡¨Ó»Ý¤H¤u«ö±¼¡AÁÂÁÂ!
(PS: ±K½X¬O¤wª¾ªº±¡ªp   PASSWORD: 122333 )

ºô¸ô¤W¬d¨Óªº

Application.DisplayAlerts = False
Workbooks.Open "BOOK2.XLSªºÀɮ׸ô®|", WriteResPassword:="1234"

TOP

¦^´_ 2# prin.huang

¸Õ¹L³o­Óµ{¦¡½X¡A¤´·|¸õ¥X¿é¤J±K½Xªºµøµ¡

TOP

¦^´_ 3# chiang0320

°²³]¨âÀɮצb¦P¥Ø¿ý¤U
Workbooks.Open ThisWorkbook.Path & "\¬¡­¶Ã¯2.xlsx", Password:="122333"
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

try this:
  1. Sub zz()
  2. Dim ar, b(), d As Object, f, k, t
  3. Set d = CreateObject("scripting.dictionary")
  4. ar = Sheets(1).[b1048576].End(3).CurrentRegion.Value
  5. For i = 1 To UBound(ar)
  6.     d(ar(i, 1)) = ""
  7. Next
  8. f = Application.GetOpenFilename
  9. If f = "Fasle" Or f = "" Then Exit Sub
  10. Application.ScreenUpdating = 0
  11. Workbooks.Open Filename:=f, Password:="122333"
  12. ar = Sheets(1).[b1048576].End(3).CurrentRegion.Value
  13. ReDim b(UBound(ar, 2) - 1)
  14. ActiveWorkbook.Close 0
  15. For i = 1 To UBound(ar)
  16.     If d.exists(ar(i, 1)) Then
  17.         For j = 1 To UBound(ar, 2)
  18.             b(j - 1) = ar(i, j)
  19.         Next
  20.         d(ar(i, 1)) = b
  21.     End If
  22. Next
  23. t = d.items
  24. Sheets(1).[b1].End(4).Select
  25. Sheets(1).[b1].End(4).Resize(d.Count, UBound(ar, 2)) = Application.Transpose(Application.Transpose(t))
  26. Application.ScreenUpdating = 1
  27. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# Hsieh

Hsieh ª©¥D  ÁÂÁÂ!

¤w¸g¤£·|¸õ¥Xµøµ¡

TOP

¦^´_ 4# Hsieh

½Ð°ÝHsieh ª©¥D  

°²¦p¨â­ÓÀɮצb¤£¦P¸ê®Æ§¨¡A§Ú©ñ¸ô®|·|Åã¥Ü¿ù»~¡A§ä¤£¨ì¸ô®|¦ì¸m¡A­n«ç»ò­×§ï?ÁÂÁÂ!

    Workbooks.Open ThisWorkbook.Path & "C:\Users\C0001\Desktop\¦Û°Ê¸Ñ¶}¤u§@ï³]©wªº±K½X\¬¡­¶Ã¯2.xlsx", Password:="122333"

TOP

¦^´_ 7# chiang0320

¦Û¤v¦³¸Õ¥X¨Ó¤F¦p¤U¡AÁÂÁª©¥D

'¨Ì¾Ú¸ô®|¡A¥´¶}Á`ªíÀÉ®×
    MMMpath = Sheets("Àɮ׸ô®|").Range("D6").Value
    Workbooks.Open MMMpath & "\¬¡­¶Ã¯2.xlsx", Password:="122333"

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD