Sut i ddefnyddio swyddogaeth Save As i drosysgrifo'r ffeil bresennol yn Excel yn awtomatig?
Wrth arbed llyfr gwaith Excel i ffolder newydd, fe gewch flwch prydlon fel isod screenshot a ddangosir a oes llyfr gwaith o'r un enw yn bodoli ac yn lleoli ar y ffolder. Sut i drosysgrifo'r ffeil bresennol yn awtomatig heb neges rhybuddio prydlon? Gall dull yn yr erthygl hon eich helpu chi.
Cadw fel swyddogaeth i drosysgrifo'r ffeil bresennol yn awtomatig gyda chod VBA
Cadw fel swyddogaeth i drosysgrifo'r ffeil bresennol yn awtomatig gyda chod VBA
Os ydych chi am arbed llyfr gwaith gydag enw newydd a throsysgrifo'r ffeil bresennol yn Excel yn awtomatig. Gwnewch fel a ganlyn.
1. Yn gyntaf, crëwch Botwm Gorchymyn ar gyfer sbarduno'r swyddogaeth Cadw fel swyddogaeth yn eich taflen waith. Cliciwch Datblygwr > Mewnosod > Botwm Gorchymyn (Rheoli X Gweithredol). Gweler y screenshot:
2. Tynnwch Botwm Gorchymyn ar eich taflen waith. Yna cliciwch ar y dde a dewis Gweld y Cod o'r ddewislen cyd-destun.
3. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch y cod VBA isod a'i gludo rhwng y Is Preifat ac Is-End llinellau yn y Côd ffenestr.
Cod VBA: Cadw fel swyddogaeth i drosysgrifo'r ffeil bresennol yn awtomatig
Dim xFileName As String
Application.DisplayAlerts = False
If Right(ActiveWorkbook.Name, 4) = "xlsm" Then
xFileName = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Excel Macro-Enabled Workbook (*.xlsm),*.xlsm")
Else
xFileName = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Excel Workbook (*.xlsx),*.xlsx")
End If
If (xFileName <> "") Or (xFileName <> "False") Then
ActiveWorkbook.SaveAs Filename:=xFileName
End If
Application.DisplayAlerts = True
4. Gwasgwch y Alt + Q allweddi i adael y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr. A diffodd y Modd Dylunio O dan y Datblygwr tab.
5. Cliciwch y Botwm Gorchymyn, yna a Save As blwch deialog yn ymddangos, dewiswch ffolder i achub y llyfr gwaith hwn, ac yna cliciwch ar y Save botwm.
Os oes llyfr gwaith o'r un enw yn bodoli yn y ffolder cyrchfan, bydd yn trosysgrifo'n awtomatig gyda'r llyfr gwaith cyfredol yn uniongyrchol yn brydlon.
Erthyglau perthnasol:
- Sut i gadw taflen waith fel ffeil PDF a'i hanfon trwy e-bost fel atodiad trwy Outlook?
- Sut i arbed enw ffeil Excel gyda stamp amser?
- Sut i arbed, allforio taflenni lluosog / pob taflen i wahanu ffeiliau csv neu destun yn Excel?
- Sut i analluogi neu beidio â chaniatáu opsiynau Cadw ac Arbed Fel yn Excel?
- Sut i analluogi arbed llyfr gwaith ond caniatáu arbed fel yn Excel yn unig?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!