VBA : Hent fil fra WEB enten via HTTP el. FTP

Her er en optaget makro med excel 2000

Sub Makro1()

'
    With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.agrsci.dk/", _
        Destination:=Range("A1"))
        .Name = "EksterneData_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

Kigger lige på det !

tjjaaee... joowww...
Men det jeg egentlig ville, og som jeg ikke skrev så meget om (kan jeg se nu) er at filen skal gemmes lokalt og ikke i selve regnearket.

Den skal altså ikke importeres, men kopieres fra nettet til en mappe på PC.

This example is done in Access but should apply for any Office application using VBA

http://www.mvps.org/access/modules/mdl0015.htm
http://www.mvps.org/access/modules/mdl0037.htm

And here is Microsofts answer

http://support.microsoft.com/default.aspx?scid=kb;en-us;163653

Hope you can get one to work, I cant :o)

Well Terry, it seems that's what I'm looking for. I will try getting it to work !

I'll be back...

På forhånd tak
Benson

Det virker !

JEg har oprettet en fil (ftpdata.txt) med indholdet:
Open Intranet
user
psswd
get data.cfg
bye

Denne kalder jeg i VBA via funktionen:
Sub hentdata()
  Call Shell("ftp.exe -s:ftpdata.txt",vbNormalFocus)
End sub

Hvis ikke jeg gide se dos vinduet poppe op erstatter jeg
vbNormalFocus
med
vbHide

Tak for hjælpen Terry :-)

Benson

great! I have had no luck at all with Microsofts :o(