Conas a sheiceáil an bhfuil comhad i bhfillteán agus ansin é a scriosadh in Excel?
Sa teagasc seo, foghlaimfidh tú script VBA chun a sheiceáil an bhfuil comhad áirithe ann i bhfillteán sonraithe, má dhéanann sé, ansin é a scriosadh as an bhfillteán in Excel.
Seiceáil an bhfuil comhad i bhfillteán ansin scrios é in Excel le cód VBA
Cuidíonn an script VBA seo a leanas le seiceáil an bhfuil comhad áirithe i bhfillteán agus é a scriosadh má tá sé ann. Déan mar a leanas le do thoil.
1. I leabhar oibre Excel oscailte, brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil, ansin cóipeáil an script VBA seo a leanas isteach sa Modúl (Cód) fhuinneog.
Cód VBA: Seiceáil an bhfuil comhad i bhfillteán sonraithe ansin scrios é
Sub CheckFileThenDelete()
'Updated by Extendoffice 20221024
Dim FilePath As String
FilePath = "C:\Users\Win10x64Test\Desktop\save attachments\aaa.xlsx"
If Dir(FilePath) <> "" Then
MsgBox "The file exists in the folder, click the OK button to delete it.", vbInformation, "Kutools for Excel"
Kill FilePath
Else
If Dir(FilePath) = "" Then
MsgBox "The file does not exist.", vbInformation, "Kutools for Excel"
End If
End If
End Sub
nótaí: Sa chód VBA, C:\Users\Win10x64Test\Desktop\sábháil ceangaltáin\aaa.xlsx is é conair an chomhaid is mian leat a sheiceáil an bhfuil sé ann. Sa sampla seo, ba mhaith liom a sheiceáil an bhfuil comhad Excel darb ainm “AAA" ann i bhfillteán darb ainm "ceangaltáin a shábháil” ar an deasc. Is féidir leat cosán an chomhaid agus an síneadh comhad a athrú chun freastal ar do chuid riachtanas.
3. Brúigh an F5 eochair chun an cód a rith.
4. Má tá an comhad ann, gheobhaidh tú a Kutools le haghaidh Excel bosca dialóige mar a thaispeántar sa scáileán thíos. Cliceáil ar an OK cnaipe chun an comhad seo a bhaint den fhillteán.
Mura bhfuil an comhad ann san fhillteán, ceann eile Kutools le haghaidh Excel Beidh an bosca dialóige pop suas freisin chun foláireamh duit.
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á!