Skip to main content

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:

doc sonraí a allmhairiú ó leabhar oibre dúnta 1

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:

doc sonraí a allmhairiú ó leabhar oibre dúnta 2

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:

doc sonraí a allmhairiú ó leabhar oibre dúnta 3

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:

doc sonraí a allmhairiú ó leabhar oibre dúnta 5

2. Sa an Cuir isteach Comhad ag Cúrsóir bosca dialóige, déan na hoibríochtaí seo a leanas:

(1.) Cliceáil doc sonraí a allmhairiú ó leabhar oibre dúnta 6cnaipe chun cill a roghnú inar mian leat na sonraí iompórtáilte a chur;

(2.) Cliceáil doc sonraí a allmhairiú ó leabhar oibre dúnta 7cnaipe 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:

doc sonraí a allmhairiú ó leabhar oibre dúnta 8

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

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á. Íoslódáil agus triail saor in aisce Anois!

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

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 ...

Tuairisc


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á!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Missed important thing. Only values need to be imported (not formulas).
This comment was minimized by the moderator on the site
Hi,
I need to import range of data (with keeping formating) from 5 different workbooks (each contain 3 sheets, only one sheet need to be imported) to 5 specified sheets in master workbook (the destination sheet need to have same name all the time, which is different than source sheet name). Every week the source file/sheet name is different. Could you help with this, please?
This comment was minimized by the moderator on the site
Works great, however in the file I open it will only allow me to open from the tab that is was last on. Is there a way to allow me to select the worksheet I want first before I select the cell range?
This comment was minimized by the moderator on the site
Hello, Patrick,When applying the above code, if the prompt box is popped out, you can just click any sheet tab you need, and then select the cell range.Please try it again, thank you!
This comment was minimized by the moderator on the site
it works grate thank you. i am having issue with data copied its formula not the value. how can i copy only value.
This comment was minimized by the moderator on the site
Buen dia! he utilizado su macro y realmente me fue muy util, pero quisiera saber, ¿como puedo agregar una instruccion a la macro para que se peguen solo los valores y no las formulas al libro abierto y también quisiera que al pegar la informacion, agregara una fila adicional para poder seguir pegando datos de otros archivos cerrados...

Esto es porque yo recibo informacion de los candidatos y lo debo de concentrar en un formato maestro.
This comment was minimized by the moderator on the site
Funcionou a primeira vez que tentei.. Agora por algum motivo não esta funcionando mais..Parece que esta copiando os valores apenas. Quando faço alteração de algum dado na planilha, nao esta mudando na outra.. o que devo fazer?
This comment was minimized by the moderator on the site
Thanks for the awesome trick here. I managed to get the coding work with my current project. My question is how can I set ''destination cell'' default to range ''A5'' without popping out InputBox
This comment was minimized by the moderator on the site
Thanks for the above. I'm trying to use VBA but when I reach to step #3: 3. Then press F5 key to run this code, and in the File Open window, select the workbook that you want to import its data I can't "see" the file I need to import the data from! the folder doesn't show that file! What can I do?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations