Conas sonraí ón leabhar oibre dúnta a iompórtáil / a chóipeáil isteach sa leabhar oibre reatha?
Is furasta dúinn sonraí a chóipeáil ó bhileog oibre oscailte agus iad a ghreamú chuig leabhar oibre oscailte eile, ach, an ndearna tú iarracht riamh sonraí ó leabhar oibre dúnta a iompórtáil isteach i leabhar oibre oscailte? An t-alt seo, labhróidh mé faoi conas sonraí a iompórtáil ó leabhar oibre dúnta.
Sonraí ón leabhar oibre dúnta a iompórtáil isteach sa leabhar oibre reatha le cód VBA
Sonraí ón leabhar oibre dúnta a iompórtáil isteach sa leabhar oibre reatha le Kutools for Excel
Sonraí ón leabhar oibre dúnta a iompórtáil isteach sa leabhar oibre reatha le cód VBA
D’fhéadfadh an cód VBA seo a leanas cabhrú leat sonraí a chóipeáil ó leabhar oibre gan iad a oscailt do leabhar oibre gníomhach oscailte, déan na céimeanna seo a leanas le do thoil:
1. Coinnigh síos an ALT + F11 eochracha, agus osclaíonn sé an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.
Cód VBA: Sonraí ón leabhar oibre dúnta a iompórtáil isteach sa leabhar oibre reatha
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. Ansin brúigh F5 eochair chun an cód seo a rith, agus sa Oscail Comhad fhuinneog, roghnaigh an leabhar oibre ar mhaith leat a chuid sonraí a iompórtáil, féach an scáileán:
4. Ansin cliceáil Oscail cnaipe, agus Kutools le haghaidh Excel tagann bosca dialóige amach le cur i gcuimhne duit raon sonraí a theastaíonn uait a iompórtáil chuig leabhar oibre eile a roghnú, féach an scáileán:
5. Agus ansin cliceáil OK cnaipe, sa bhosca dialóige popped out, roghnaigh cill inar mian leat na sonraí a chur, féach an scáileán:
6. agus cliceáil OK, rinneadh na sonraí sa leabhar oibre dúnta a iompórtáil isteach sa leabhar oibre reatha.
Sonraí ón leabhar oibre dúnta a iompórtáil isteach sa leabhar oibre reatha le Kutools for Excel
D’fhéadfadh go mbeadh an cód VBA deacair go leor dár dtosaitheoirí Excel, mar sin, anseo, molfaidh mé uirlis áisiúil duit-Kutools le haghaidh Excel, Lena Cuir isteach Comhad ag Cúrsóir gné, is féidir leat ábhar iomlán bileog oibre a chur isteach ó leabhar oibre dúnta go tapa agus go héasca.
Kutools le haghaidh Excel : le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá. |
Tar éis a shuiteáil Kutools le haghaidh Excel, déan mar a leanas le do thoil:
1. cliceáil Kutools Plus > Iompórtáil & Easpórtáil > Cuir isteach Comhad ag Cúrsóir, féach ar an scáileán:
2. Sa an Cuir isteach Comhad ag Cúrsóir bosca dialóige, déan na hoibríochtaí seo a leanas:
(1.) Cliceáil cnaipe chun cill a roghnú inar mian leat na sonraí iompórtáilte a chur;
(2.) Cliceáil cnaipe chun an leabhar oibre a theastaíonn uait a chuid sonraí a iompórtáil a roghnú.
Nóta: Luach amháin (gan aon fhoirmlí): Má sheiceálann tú an rogha seo, ní iompórtálfar ach an luach, agus ní iompórtálfar na foirmlí.
Ná aistrigh formáidiú: Déanfaidh an rogha seo a sheiceáil na sonraí a iompórtáil isteach sa bhileog oibre gan formáidiú.
Íoslódáil agus triail saor in aisce Kutools le haghaidh Excel Now!
3. Ansin cliceáil OK, má tá níos mó ná bileog oibre amháin sa leabhar oibre, a Roghnaigh Bileog Oibre tiocfaidh bosca dialóige amach, sonraigh bileog oibre le do thoil ar mhaith leat na sonraí a iompórtáil, féach an scáileán:
4. Agus ansin cliceáil OK cnaipe, iompórtáladh na sonraí sa bhileog oibre roghnaithe isteach sa leabhar oibre reatha.
Cliceáil chun níos mó sonraí a fháil faoin ngné Ionsáigh Comhad seo ag Cúrsóir.
Íoslódáil agus triail saor in aisce Kutools le haghaidh Excel Now!
Taispeántas: Sonraí ón leabhar oibre dúnta a iompórtáil isteach sa leabhar oibre reatha le Kutools for Excel
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á!