The følgende VBA-kode kan hjelpe deg med å kopiere data fra en arbeidsbok uten å åpne den i aktiv åpnet arbeidsbok, kan du gjøre med følgende:
1. Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Importer data fra lukket arbeidsbok i gjeldende arbeidsbok
Sub ImportDatafromcloseworkbook () 'Update 20150707Dim XWB Som WorkbookDim xAddWb Som WorkbookDim xRng1 Som RangeDim xRng2 Som RangeSet XWB = Application.ActiveWorkbookxTitleId = "KutoolsforExcel" Med 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) Sett xAddWb = Application.ActiveWorkbook Set xRng1 = Application.InputBox (spør: = "Velg kilde range", Tittel: = xTitleId, Standard: = "A1", Type: = 8 ) xWb.Activate Set xRng2 = Application.InputBox (tekst: = "Velg destinasjonscelle", Tittel: = xTitleId, Standard: = "A1", Type: = 8) xRng1.Copy xRng2 xRng2.CurrentRegion.EntireColumn.AutoFit xAddWb. Lukk False End IfEnd WithEnd Sub3. Deretter trykker F5 for å kjøre denne koden, og i Fil Åpne vinduet velger arbeidsboken du vil importere sine data, se skjermbilde:
4. Klikk deretter på Åpne-knappen, og KutoolsforExcel dialogboks spretter ut for å minne deg på å velge en rekke data som du ønsker å importere til annen arbeidsbok, se skjermbilde:
5. Og klikk deretter på OK-knappen i spratt ut dialogboksen velger en celle der du vil plassere dataene, se skjermbilde:
6. Og klikker OK, dataene i lukket arbeidsbok har blitt importert til gjeldende arbeidsbok.