Sut i fewnforio / copïo data o'r llyfr gwaith caeedig i'r llyfr gwaith cyfredol?
Mae'n hawdd i ni gopïo data o daflen waith agored a'u pastio i lyfr gwaith agored arall, ond, a ydych chi erioed wedi ceisio mewnforio data o lyfr gwaith caeedig i mewn i lyfr gwaith agored? Yr erthygl hon, byddaf yn siarad am sut i fewnforio data o lyfr gwaith caeedig.
Mewnforio data o'r llyfr gwaith caeedig i'r llyfr gwaith cyfredol gyda chod VBA
Mewnforio data o lyfr gwaith caeedig i lyfr gwaith cyfredol gyda Kutools for Excel
Mewnforio data o'r llyfr gwaith caeedig i'r llyfr gwaith cyfredol gyda chod VBA
Efallai y bydd y cod VBA canlynol yn eich helpu i gopïo data o lyfr gwaith heb ei agor i lyfr gwaith gweithredol agored, gwnewch y camau canlynol:
1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.
Cod VBA: Mewnforio data o'r llyfr gwaith caeedig i'r llyfr gwaith cyfredol
Sub ImportDatafromcloseworkbook()
'Updateby Extendoffice
Dim xWb As Workbook
Dim xAddWb As Workbook
Dim xRng1 As Range
Dim xRng2 As Range
Set xWb = Application.ActiveWorkbook
xTitleId = "KutoolsforExcel"
With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa"
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
Application.Workbooks.Open .SelectedItems(1)
Set xAddWb = Application.ActiveWorkbook
Set xRng1 = Application.InputBox(prompt:="Select source range", Title:=xTitleId, Default:="A1", Type:=8)
xWb.Activate
Set xRng2 = Application.InputBox(prompt:="Select destination cell", Title:=xTitleId, Default:="A1", Type:=8)
xRng1.Copy xRng2
xRng2.CurrentRegion.EntireColumn.AutoFit
xAddWb.Close False
End If
End With
End Sub
3. Yna pwyswch F5 allwedd i redeg y cod hwn, ac yn y Agor Ffeil ffenestr, dewiswch y llyfr gwaith rydych chi am fewnforio ei ddata, gweler y screenshot:
4. Yna cliciwch agored botwm, a Kutoolsorexcel blwch deialog yn galw allan i'ch atgoffa rhag dewis ystod o ddata rydych chi am ei fewnforio i lyfr gwaith arall, gweler y screenshot:
5. Ac yna cliciwch OK botwm, yn y blwch deialog popped out, dewiswch gell lle rydych chi am roi'r data, gweler y screenshot:
6. a chliciwch OK, mae'r data yn y llyfr gwaith caeedig wedi'i fewnforio i'r llyfr gwaith cyfredol.
Mewnforio data o lyfr gwaith caeedig i lyfr gwaith cyfredol gyda Kutools for Excel
Efallai y bydd y cod VBA ychydig yn anodd i'n dechreuwr Excel, felly, yma, byddaf yn argymell teclyn defnyddiol i chi-Kutools for Excel, Gyda'i Mewnosod Ffeil yn y Cyrchwr nodwedd, gallwch fewnosod cynnwys cyfan taflen waith o lyfr gwaith caeedig yn gyflym ac yn hawdd.
| Kutools for Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. |
Ar ôl gosod Kutools for Excel, gwnewch fel a ganlyn:
1. Cliciwch Kutools Byd Gwaith > Mewnforio ac Allforio > Mewnosod Ffeil yn y Cyrchwr, gweler y screenshot:
2. Yn y Mewnosod Ffeil yn y Cyrchwr blwch deialog, gwnewch y gweithrediadau canlynol:
(1.) Cliciwch 
botwm i ddewis cell lle rydych chi am roi'r data a fewnforiwyd;
(2.) Cliciwch 
botwm i ddewis y llyfr gwaith rydych chi am fewnforio ei ddata.
Nodyn: Gwerth yn unig (dim fformwlâu): Os gwiriwch yr opsiwn hwn, dim ond y gwerth fydd yn cael ei fewnforio, ac ni fydd y fformwlâu yn cael eu mewnforio.
Peidiwch â throsglwyddo fformatio: Bydd gwirio'r opsiwn hwn yn mewnforio'r data i'r daflen waith heb ei fformatio.
3. Yna cliciwch OK, os oes mwy nag un taflen waith yn y llyfr gwaith, a Dewiswch Daflen Waith bydd blwch deialog yn popio allan, nodwch daflen waith rydych chi am fewnforio'r data, gweler y screenshot:
4. Ac yna cliciwch OK botwm, mae'r data yn y daflen waith a ddewiswyd wedi'i fewnforio i'r llyfr gwaith cyfredol.
Cliciwch i wybod mwy o fanylion am y nodwedd Mewnosod Ffeil yn Cyrchwr.
Dadlwythwch a threial am ddim Kutools for Excel Nawr!
Demo: Mewnforio data o lyfr gwaith caeedig i lyfr gwaith cyfredol gyda Kutools for Excel
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for 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...
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!
