MS access import from newly created text file (from URL) -
first, context. have excel spreadsheet module that, using piece of javascript on site, imports info text file generated website.
set datasheet = worksheets("datasheet") ... set qtqtrresults = datasheet.querytables _ .add(connection:=url, destination:=datasheet.cells(1, 1)) qtqtrresults .webformatting = xlnone .webselectiontype = xlspecifiedtables .webtables = "1,2" .refresh
the url goes "site.com/download.jsp?login=abc&search=123" which, when accessed in browser, creates text file downloads browser's default download directory.
my problem need replicate functionality in access, importing info text file existing table.
can offer solution (other utilize excel)?
i tested next , worked me in access 2010:
class="lang-vbs prettyprint-override">option compare database alternative explicit sub downloadcsvfromweb() dim httpreq object, stm object set stm = createobject("adodb.stream") stm.type = 2 ' adtypetext stm.open set httpreq = createobject("msxml2.serverxmlhttp") httpreq.open _ "get", _ "http://www.example.com/downloads/gord/test.csv", _ false httpreq.send stm.writetext httpreq.responsetext stm.savetofile _ "c:\users\gord\desktop\test.csv", _ 2 ' adsavecreateoverwrite stm.close set stm = nil set httpreq = nil end sub
that saves file disk (on desktop, in case). code go on utilize docmd.transfertext
import info access table.
ms-access access-vba
No comments:
Post a Comment