Jeigu yra būdas padaryti geriau, atrask jį. T. A. Edison

Sveiki, Svečias
Prisijungimo vardas: Slaptažodis: Prisiminti mane
  • Puslapis:
  • 1

TEMA: Duomenų perkėlimas iš vienos EXCEL knygos į kitą

Duomenų perkėlimas iš vienos EXCEL knygos į kitą prieš 3 m. 8 mėn. #1

  • Canis
  • Canis avataras
  • Neprisijungęs
  • Naujokas
  • Žinutės: 10
  • Reputacija: 1
Sveiki. Bandžiau prisitaikyti ši kodo gabaliuką iš tinklo

Sub test()
Dim wb As Workbook, wb2 As Workbook
Dim ws As Worksheet
Dim vFile As Variant

'Set source workbook
Set wb = ActiveWorkbook
'Open the target workbook
vFile = Application.GetOpenFilename("Excel-files,*.xls*", _
1, "Select One File To Open", , False)
'if the user didn't select a file, exit sub
If TypeName(vFile) = "Boolean" Then Exit Sub
Workbooks.Open vFile
'Set targetworkbook
Set wb2 = ActiveWorkbook
'ThisWorkbook.Activate

'For instance, copy data from a range in the first workbook to another range in the other workbook
wb2.Worksheets("Sheet1").Range("b2:e500").Value = wb.Worksheets("Sheet3").Range("b21:e500").Value
End Sub


Meta subscript out of range Kame klaidos šaknys?
Administratorius uždraudė viešą pranešimų rašymą.

Duomenų perkėlimas iš vienos EXCEL knygos į kitą prieš 3 m. 8 mėn. #2

  • Sergejuss
  • Sergejuss avataras
  • Neprisijungęs
  • Dalyvis
  • VBA,VB.NET. Su Excel dirbu 20 m. manau pramokau.
  • Žinutės: 37
  • Gauta padėka 8
  • Reputacija: 5
wb2.Worksheets("Sheet1").Range("b2:e500").Value = wb.Worksheets("Sheet3").Range("b21:e500").Value

Turi būti atidarome faile lentele Sheet1 ir faile iš kur paledinėsi tą kodą tame faile turi būti lentelė Sheet3
Paskutinis taisymas: prieš 3 m. 8 mėn. nuo Sergejuss.
Administratorius uždraudė viešą pranešimų rašymą.
Jums padėkojo šie nariai: Canis

Duomenų perkėlimas iš vienos EXCEL knygos į kitą prieš 3 m. 8 mėn. #3

  • Canis
  • Canis avataras
  • Neprisijungęs
  • Naujokas
  • Žinutės: 10
  • Reputacija: 1
Reikėjo nosį į lentelės apačią nuleisti ir tikrai sheet'o pavadinimas kažkoks "temp". Visai ne ten sliekų ieškojau. Dėkui.
Administratorius uždraudė viešą pranešimų rašymą.
  • Puslapis:
  • 1
Moderatoriai: bankeris
Puslapio sukūrimo laikas: 0.326 sekundžių