28. juni 2006 - 00:13Der er
10 kommentarer og 1 løsning
Compile error med ".Sheets"
Jeg har forsøgt, at lave en funktion, der skulle indsætte det første ark fra en valgt fil til efter det tredje ark i det åbne regneark, men når jeg compiler, får jeg fejlbeskeden: "Compile error: Method or data member not found." og så er ".Sheets" (i sætningen "After:=Workbooks().Sheets(3)") markeret.
Er der nogen, der kan gennemskue den?
Her er koden
CbBrowse CommandButton, der browser efter en fil, der skal indsættes TbImport TextBox, der indeholder stien på den fil, der skal indsættes CbOk CommandButton, som er en OK knap!
Private Sub CbBrowse_Click() fileToImport = Application.GetOpenFilename("Optimore Output Files (*.csv), *.csv", , "Import Optimore Output") TbImport.Value = fileToImport End Sub
Private Sub CbOk_Click() Workbooks(TbImport.Value).Sheets(1).Copy After:=Workbooks().Sheets(3)
Sub hent() valg = Application.GetOpenFilename("Files (*.xls), *.xls") Workbooks.Open Filename:=valg navn = ActiveWorkbook.Name Sheets(1).Copy After:=ThisWorkbook.Sheets(3) Workbooks(navn).Close End Sub
Sub hent() valg = Application.GetOpenFilename("Files (*.csv), *.csv") Workbooks.Open Filename:=valg navn = ActiveWorkbook.Name Sheets(1).Copy After:=ThisWorkbook.Sheets(3) Workbooks(navn).Close End Sub
Ups, havde helt glemt at afslutte. Hvis du smider et svar, giver jeg dig lige pointene på et tidspunkt, men jeg skal ud at rejse den næste måned, så det er ikke sikkert det sker med det samme.
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.
