Hej Vil gerne hente data fra et lukke excel (Data.xlsb) ark og sætte denm ind i et åbent excelark (Main.xlsb), hvori også macroen er og kaldes med Ctrl+shift+v
Har lavet denne kode som virker fint når jeg kører den i visual basic vindue, men ikke virker når jeg kalder den fra arket Main.dk. Hvad går galt og hvad er løsningen? Se kode:
Fejlen er at den altid stopper når den har hentet dataene fra data.xlsb, lige før den skal skrive dataene i main.xlsb. stopper med data.xlsb som det åbne og aktive wormkbook.
' Define variables Dim WB_Main As Excel.Workbook Set WB_Main = Workbooks("Main.xlsb")
Dim WB_Data As Excel.Workbook Set WB_Data = Workbooks.Open(Filename:="S:\Test_1\Data.xlsb")
' Transfer data WB_Main.Cells(5, 3).Value = WB_Data.Cells(5, 3).Value WB_Main.Cells(5, 4).Value = WB_Data.Cells(5, 4).Value
' End of Sub Workbooks("Data.xlsb").Close False
Set WB_Main = Nothing Set WB_Data = Nothing
End Sub
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
