- ©«¤l
- 3
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 3
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-1-31
- ³Ì«áµn¿ý
- 2018-12-5
|
¦^´_ 9# Hsieh
½Ð±Ð¦U¦ì°ª¤â¤j¤j
¤p§Ì·Qn¨Ï¥Î¿ï¾ÜÀÉ®× ¨Ã±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 |
|