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

[µo°Ý] VBA¥i¥H°µ¨ì³]­p¼u¥X¦¡µ¡Åý¨Ï¥ÎªÌÂI¿ïÀÉ®×¥H¶×¤Jªº¥\¯à¶Ü?

¦^´_ 9# Hsieh


½Ð±Ð¦U¦ì°ª¤â¤j¤j
¤p§Ì·Q­n¨Ï¥Î¿ï¾ÜÀÉ®× ¨Ã±N¿ï¾Ü¤§ÀÉ®× ½Æ»s¨ìd:\test ¸ê®Æ§¨¸Ì
¦ý¬O FILECOPY "¨Ó·½","D:\test"     ªº¨Ó·½·Q¥ÎÅܼƨú¥N «o¤@ª½¥X²{¿ù»~
¥i¥H³Â·Ð°ª¤âÀ°¦£¬Ý¤@¤U»Ý­n¦p¦ó­×§ï¤~¯à²Å¦X¶¶§Q¶]¤U¥h
Private Sub CommandButton1_Click()

With Application.FileDialog(msoFileDialogOpen)
   .AllowMultiSelect = True
   .Show
   For i = 1 To .SelectedItems.Count
     Cells(i, 1) = .SelectedItems(i)
     MsgBox .SelectedItems(i)
     fs = .SelectedItems(i)

       ==> Private Sub CommandButton1_Click()

With Application.FileDialog(msoFileDialogOpen)
   .AllowMultiSelect = True
   .Show
   For i = 1 To .SelectedItems.Count
     Cells(i, 1) = .SelectedItems(i)
     MsgBox .SelectedItems(i)
     fs = .SelectedItems(i)

       fileCopy(fs,"d:\test")
   Next
End With
End SubfileCopy(fs,"d:\test")
   Next
End With
End Sub
·P¿E

TOP

¦^´_ 11# shakeass

¶K¤å¥¢±Ñ­«¶K¤@©«sorry
    ½Ð±Ð¦U¦ì°ª¤â¤j¤j
¤p§Ì·Q­n¨Ï¥Î¿ï¾ÜÀÉ®× ¨Ã±N¿ï¾Ü¤§ÀÉ®× ½Æ»s¨ìd:\test ¸ê®Æ§¨¸Ì
¦ý¬O FILECOPY "¨Ó·½","D:\test"     ªº¨Ó·½·Q¥ÎÅܼƨú¥N «o¤@ª½¥X²{¿ù»~
¥i¥H³Â·Ð°ª¤âÀ°¦£¬Ý¤@¤U»Ý­n¦p¦ó­×§ï¤~¯à²Å¦X¶¶§Q¶]¤U¥h
Private Sub CommandButton1_Click()

With Application.FileDialog(msoFileDialogOpen)
   .AllowMultiSelect = True
   .Show
   For i = 1 To .SelectedItems.Count
     Cells(i, 1) = .SelectedItems(i)
     MsgBox .SelectedItems(i)
     fs = .SelectedItems(i)

       fileCopy(fs,"d:\test")
   Next
End With
End Sub

TOP

        ÀR«ä¦Û¦b : ¤H¨ÆªºÁ}Ãø»PµZ¿i¡A´N¬O¤@ºØ¦ÒÅç¡C
ªð¦^¦Cªí ¤W¤@¥DÃD