Elektroda.pl
Elektroda.pl
X
Elektroda.pl
Proszę, dodaj wyjątek dla www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

EXCEL - Import plików csv z www do arkusza.

17 Paź 2015 16:14 564 1
  • Poziom 2  
    Witam,
    Poszukuje pomocy, mam na stronie www linki do różnych plików css, chciałbym je importować do excela, w sieci znalazłem pomocne i ciekawe makro, jednak nie działa w moim przypadku poprawnie. Niestety nie znam się na tyle, żeby to samemu zmodyfikować, może ktoś pomoże.
    Code:
    Sub ImportFromWeb()
    
    Dim FullName As String, ImpName As String, DataRange As Variant, NumRows As Long, NumCols As Long

    FullName = Range("fullname").Value

        Workbooks.Open Filename:=FullName
        DataRange = ActiveCell.CurrentRegion.Value
        NumRows = UBound(DataRange)
        NumCols = UBound(DataRange, 2)
        ImpName = Application.ActiveWorkbook.Name
        Workbooks(ImpName).Close SaveChanges:=False
         
        With Range("importrange")
        .ClearContents
        .Resize(NumRows, NumCols).Name = "importrange"
        .AdjustColumnWidth = True
        End With
       
        Range("importrange").Value = DataRange
       
    End Sub


    Dane w pliku nie chcą mi się dzielić poprawnie na kolumny.
  • Pomocny post
    Specjalista - VBA, Excel
    Kod: vb
    Zaloguj się, aby zobaczyć kod