Avatar billede Josvto Mester
03. september 2015 - 21:36 Der er 3 kommentarer og
1 løsning

Hjælp til makro

hej,

Jeg vil gerne hente en resultatopgørelse og en balance på samme gang - altså i samme ark.

Når jeg bruger nedenstående macro, får jeg en fejl meddelelse - "compile error next without for"

Nogle som kan løse nedenstående macro?

Sub Financial_data_download()

Dim conString As String
    Dim conName As String
    Dim txtSymbols(0, 2) As String
   
    txtSymbols(0, 1) = "MSFT"
    txtSymbols(0, 2) = "CSCO"
   
    For i = 1 To 2
       
        Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Name = txtSymbols(0, i)
       
    'financial statement
   
        conString = "URL;http://finance.yahoo.com/q/ks?s=" & txtSymbols(0, i) & "+Key+Statistics"
        conName = "ks?s=" & txtSymbols(0, i) & "+Key+Statistics"
       
        With ActiveSheet.QueryTables.Add(Connection:=conString, Destination:=Range("$A$1"))
            .Name = conName
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .WebSelectionType = xlSpecifiedTables
            .WebFormatting = xlWebFormattingNone
            .WebTables = """yfncsubtit"",8,10,11,13,15,17,19,21,23"
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=False
           
         
        conString = "URL;http://finance.yahoo.com/is?s=" & txtSymbols(0, i) & "+Income+Statement&annual"
        conName = "ks?s=" & txtSymbols(0, i) & "+Income+Statement&annual"
       
        With ActiveSheet.QueryTables.Add(Connection:=conString, Destination:=Range("$A$50"))
            .Name = conName
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .WebSelectionType = xlSpecifiedTables
            .WebFormatting = xlWebFormattingNone
            .WebTables = """yfncsubtit"",8,10,11,13,15,17,19,21,23"
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=False
       
            End With

    Next i
       

End Sub
Avatar billede kabbak Professor
03. september 2015 - 21:47 #1
du mangler en
End With

på den første
With
Avatar billede Dan Elgaard Ekspert
03. september 2015 - 21:48 #2
Ja, du mangler en...

End With

...efter den først 'With' block!

(Se, hvordan der er en 'End With' efter den sidste .Refresh property)
Avatar billede Josvto Mester
03. september 2015 - 22:05 #3
Kabbak, du var først. Vil du have point?

Og tak for hjælpen :)
Avatar billede kabbak Professor
03. september 2015 - 22:11 #4
Tak, et svar
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester