Re: export kwerendy do pliku csv

Article View: pl.comp.bazy-danych.msaccess

Article #137334

Back to pl.comp.bazy-danych.msaccess Previous Next

#137334

From: MaciejF
Date: Wed, 30 Nov 2016 13:55

28 lines
3528 bytes

Uproszczenie procedurki w module:

Sub txt2csv()
    Dim fnam As String
    Dim spath As String
    Dim ftxt As String
    Dim objExcelApp As Object
    Dim wb As Object
    spath = "X:\"
    fnam = Dir(spath & "*.txt")
    Set objExcelApp = CreateObject("Excel.Application")
    
    Do While fnam <> ""
        Open spath & fnam For Input As #1
        ftxt = Input(LOF(1), 1)
        Close 1
        ftxt = Replace(ftxt, "|", ";")
        Open spath & Replace(UCase(fnam), ".TXT", ".csv") For Output As #1
        Print #1, ftxt
        Close 1
        Set wb = objExcelApp.Workbooks.Open(spath & fnam)
        wb.Close True
        fnam = Dir
    Loop
End Sub

/
MF

Technical Details

Message-ID: <d4275615-429d-44b2-ad6f-3f5b937532fb@googlegroups.com>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!goblin1!goblin.stu.neva.ru!feeders.as203319.net!feeder02.as203319.net!2.eu.feeder.erje.net!feeder.erje.net!2.us.feeder.erje.net!newspeer1.nac.net!border2.nntp.dca1.giganews.com!nntp.giganews.com!n6no290176qtd.0!news-out.google.com!j8ni1126qtc.0!nntp.google.com!p16no288881qta.1!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail

References:

<39d994b6-e28e-4fc2-a084-f06f776fd643@googlegroups.com> <1e537968-eeb9-4b13-b50b-b20a65c94981@googlegroups.com> <5adc9bd5-02aa-431a-9da5-4436331981d0@googlegroups.com> <e2bcce68-05b7-4f32-a98d-c29be8945003@googlegroups.com> <f0871dfd-9ee2-43a6-a20a-0c3c8c7b7c9e@googlegroups.com> <efb3385e-a83b-417d-ad7c-0ecf45246ed5@googlegroups.com> <23f5c5ff-a594-4fb9-8eb3-477cd7eebce0@googlegroups.com> <499a75f3-cb1d-45d9-b7e2-40edd8cf771f@googlegroups.com> <cfdcc8ae-3636-45a6-8e98-354ced6c90c0@googlegroups.com> <042100af-c425-4d32-a758-960f0de71417@googlegroups.com> <a6f43a6d-e9e3-47b6-843e-bb7903bbcdcb@googlegroups.com> <f9cd55f6-4b7b-4c72-82eb-4ddea936f4ed@googlegroups.com> <31f73f11-c349-4c21-abae-26b43a8882b7@googlegroups.com> <a64dbffe-2a58-4aab-8c40-f8b48c875bea@googlegroups.com> <a5ca3ae5-6d98-4c89-b3bf-0e8d06822c76@googlegroups.com> <5a5dd01d-5135-413e-b24a-f4430d7eef4a@googlegroups.com> <938c0682-bd58-46ae-b5cf-62127e958a5c@googlegroups.com> <aec03b3b-f433-47a1-ac61-ca4ffd7afa60@googlegroups.com> <3640a2e3-3162-4347-820a-489a7f87d7b8@googlegroups.com> <3dedb5cf-3118-40e7-aa67-fae3c319d006@googlegroups.com> <fe73f770-dd41-4201-b2ef-ae6d5c8a8b1d@googlegroups.com> <a7f33fbc-5ca1-41ad-b00e-71fb2669f2f6@googlegroups.com> <12c9ab06-3cf1-44e2-b59c-83d718d1bd5c@googlegroups.com> <e6b1f15d-aabf-4e8f-b5d7-4e15f47158f0@googlegroups.com> <d61f94c3-e2a0-4d94-81c2-9781092195db@googlegroups.com> <b09069ec-822f-451c-9ace-8a1366965865@googlegroups.com>

Show Full Headers

Complete Article Headers

X-Received: by 10.107.172.66 with SMTP id v63mr7018503ioe.13.1480514134811;        Wed, 30 Nov 2016 05:55:34 -0800 (PST)
X-Received: by 10.157.60.235 with SMTP id t40mr1689735otf.0.1480514134744; Wed, 30 Nov 2016 05:55:34 -0800 (PST)
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!goblin1!goblin.stu.neva.ru!feeders.as203319.net!feeder02.as203319.net!2.eu.feeder.erje.net!feeder.erje.net!2.us.feeder.erje.net!newspeer1.nac.net!border2.nntp.dca1.giganews.com!nntp.giganews.com!n6no290176qtd.0!news-out.google.com!j8ni1126qtc.0!nntp.google.com!p16no288881qta.1!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: pl.comp.bazy-danych.msaccess
Date: Wed, 30 Nov 2016 05:55:34 -0800 (PST)
In-Reply-To: <b09069ec-822f-451c-9ace-8a1366965865@googlegroups.com>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=213.241.94.194; posting-account=kc7ZIQoAAAB5PkdJgxjq1dd8jnBK4MVp
NNTP-Posting-Host: 213.241.94.194
References: <39d994b6-e28e-4fc2-a084-f06f776fd643@googlegroups.com> <1e537968-eeb9-4b13-b50b-b20a65c94981@googlegroups.com> <5adc9bd5-02aa-431a-9da5-4436331981d0@googlegroups.com> <e2bcce68-05b7-4f32-a98d-c29be8945003@googlegroups.com> <f0871dfd-9ee2-43a6-a20a-0c3c8c7b7c9e@googlegroups.com> <efb3385e-a83b-417d-ad7c-0ecf45246ed5@googlegroups.com> <23f5c5ff-a594-4fb9-8eb3-477cd7eebce0@googlegroups.com> <499a75f3-cb1d-45d9-b7e2-40edd8cf771f@googlegroups.com> <cfdcc8ae-3636-45a6-8e98-354ced6c90c0@googlegroups.com> <042100af-c425-4d32-a758-960f0de71417@googlegroups.com> <a6f43a6d-e9e3-47b6-843e-bb7903bbcdcb@googlegroups.com> <f9cd55f6-4b7b-4c72-82eb-4ddea936f4ed@googlegroups.com> <31f73f11-c349-4c21-abae-26b43a8882b7@googlegroups.com> <a64dbffe-2a58-4aab-8c40-f8b48c875bea@googlegroups.com> <a5ca3ae5-6d98-4c89-b3bf-0e8d06822c76@googlegroups.com> <5a5dd01d-5135-413e-b24a-f4430d7eef4a@googlegroups.com> <938c0682-bd58-46ae-b5cf-62127e958a5c@googlegroups.com> <aec03b3b-f433-47a1-ac61-ca4ffd7afa60@googlegroups.com> <3640a2e3-3162-4347-820a-489a7f87d7b8@googlegroups.com> <3dedb5cf-3118-40e7-aa67-fae3c319d006@googlegroups.com> <fe73f770-dd41-4201-b2ef-ae6d5c8a8b1d@googlegroups.com> <a7f33fbc-5ca1-41ad-b00e-71fb2669f2f6@googlegroups.com> <12c9ab06-3cf1-44e2-b59c-83d718d1bd5c@googlegroups.com> <e6b1f15d-aabf-4e8f-b5d7-4e15f47158f0@googlegroups.com> <d61f94c3-e2a0-4d94-81c2-9781092195db@googlegroups.com> <b09069ec-822f-451c-9ace-8a1366965865@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <d4275615-429d-44b2-ad6f-3f5b937532fb@googlegroups.com>
Subject: Re: export kwerendy do pliku csv
From: MaciejF <maciejfr@onet.pl>
Injection-Date: Wed, 30 Nov 2016 13:55:34 +0000
Lines: 27
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 7bit

Reply to Parent Message