Conas comhaid a chóipeáil nó a bhogadh ó fhillteán amháin go fillteán eile bunaithe ar liosta in Excel?
Má tá liosta d’ainmneacha comhaid agat i gcolún i mbileog oibre, agus aimsíonn na comhaid i bhfillteán i do chomhbhrúiteoir. Ach, anois, ní mór duit na comhaid seo a bhogadh nó a chóipeáil, na hainmneacha atá liostaithe sa bhileog oibre óna bhfillteán bunaidh go ceann eile mar a thaispeántar an pictiúr a leanas. Conas a d’fhéadfá an tasc seo a chríochnú chomh tapa agus is féidir leat in Excel?
Cóipeáil nó bog comhaid ó fhillteán amháin go fillteán eile bunaithe ar liosta in Excel le cód VBA
Cóipeáil nó bog comhaid ó fhillteán amháin go fillteán eile bunaithe ar liosta in Excel le cód VBA
Chun na comhaid a bhogadh ó fhillteán amháin go ceann eile bunaithe ar liosta d’ainmneacha comhaid, féadfaidh an cód VBA seo a leanas fabhar a thabhairt duit, déan mar seo é le do thoil:
1. Coinnigh síos an Alt + F11 eochracha in Excel, agus osclaíonn sé an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód VBA seo a leanas i bhFuinneog an Mhodúil.
Cód VBA: Bog comhaid ó fhillteán amháin go fillteán eile bunaithe ar liosta in Excel
Sub movefiles()
'Updateby Extendoffice
Dim xRg As Range, xCell As Range
Dim xSFileDlg As FileDialog, xDFileDlg As FileDialog
Dim xSPathStr As Variant, xDPathStr As Variant
Dim xVal As String
On Error Resume Next
Set xRg = Application.InputBox("Please select the file names:", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xSFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
xSFileDlg.Title = " Please select the original folder:"
If xSFileDlg.Show <> -1 Then Exit Sub
xSPathStr = xSFileDlg.SelectedItems.Item(1) & "\"
Set xDFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
xDFileDlg.Title = " Please select the destination folder:"
If xDFileDlg.Show <> -1 Then Exit Sub
xDPathStr = xDFileDlg.SelectedItems.Item(1) & "\"
For Each xCell In xRg
xVal = xCell.Value
If TypeName(xVal) = "String" And xVal <> "" Then
FileCopy xSPathStr & xVal, xDPathStr & xVal
Kill xSPathStr & xVal
End If
Next
End Sub
3. Agus ansin brúigh F5 eochair chun an cód seo a rith, agus tiocfaidh bosca pras amach le cur i gcuimhne duit na cealla ina bhfuil ainmneacha na gcomhad a roghnú, féach an scáileán:
4. Ansin cliceáil OK cnaipe, agus san fhuinneog popped out, roghnaigh an fillteán ina bhfuil na comhaid ar mhaith leat bogadh uathu, féach an scáileán:
5. Agus ansin cliceáil OK, lean ar aghaidh ag roghnú an fhillteáin ceann scríbe inar mian leat na comhaid a aimsiú i bhfuinneog eile atá popped out, féach an scáileán:
6. Ar deireadh, cliceáil OK chun an fhuinneog a dhúnadh, agus anois, aistríodh na comhaid isteach i bhfillteán eile a shonraigh tú bunaithe ar ainmneacha na gcomhad ar liosta na mbileog oibre, féach an scáileán:
nótaí: Mura dteastaíonn uait ach na comhaid a chóipeáil chuig fillteán eile, ach na comhaid bhunaidh a choinneáil, cuir an cód VBA thíos i bhfeidhm:
Cód VBA: Cóipeáil comhaid ó fhillteán amháin go fillteán eile bunaithe ar liosta in Excel
Sub copyfiles()
'Updateby Extendoffice
Dim xRg As Range, xCell As Range
Dim xSFileDlg As FileDialog, xDFileDlg As FileDialog
Dim xSPathStr As Variant, xDPathStr As Variant
Dim xVal As String
On Error Resume Next
Set xRg = Application.InputBox("Please select the file names:", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xSFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
xSFileDlg.Title = "Please select the original folder:"
If xSFileDlg.Show <> -1 Then Exit Sub
xSPathStr = xSFileDlg.SelectedItems.Item(1) & "\"
Set xDFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
xDFileDlg.Title = "Please select the destination folder:"
If xDFileDlg.Show <> -1 Then Exit Sub
xDPathStr = xDFileDlg.SelectedItems.Item(1) & "\"
For Each xCell In xRg
xVal = xCell.Value
If TypeName(xVal) = "String" And xVal <> "" Then
FileCopy xSPathStr & xVal, xDPathStr & xVal
End If
Next
End Sub
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!