Elektroda.pl
Elektroda.pl
X

Search our partners

Please add exception to AdBlock for elektroda.pl.
If you watch the ads, you support portal and users.

Makro eksportujace do UTF8 - Jak dodac okno wyboru folderu zapisu ?

etiene8912 18 Mar 2017 20:00 492 2
  • #1
    etiene8912
    Level 11  
    Witam,
    uzywam takiego makra na codzien, - eksportuje moje dane do UTF8, pozniej importuje je do programu ANKI.
    Makro zapisuje plik eksportu w tym samym folderze w ktorym jest skoroszyt - chcialbym zmienic sciezke zapisu - dodac komendy (polecenia), w ktorych makro zapyta mnie o to gdzie zapisac eksport danych, i jak go nazwac.
    Nie wiem jak to napisac, i dodac - prosze o pomoc.



    Code:
    Sub ADODB_method()
    
    'Apr 15, 2014
    ' 1 kolumna slowo, 2 kolumna definicja badz tlumaczenie - pisac bezposrednio slowo w a1, i definicje badz tlumaczenie w b1 , makro eksportuje plik wsadowy do anki do tego samego folderu w ktorym jest arkusz excela

    Const myDelim As String = "," '<<< select comma or semicolon
    Dim WS As Worksheet
    Set WS = ActiveSheet
    Dim r As Long, c As Long, i As Long, j As Long
    r = WS.Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    c = WS.Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    Dim myPath As String
    myPath = ThisWorkbook.Path
    Dim myFile As String
    myFile = myPath & "\" & ActiveSheet.Name & ".csv"
    Dim obj As Object
    Set obj = CreateObject("ADODB.Stream")
    obj.Type = 2
    obj.Charset = "utf-8"
    obj.Open
    Dim v() As Variant
    ReDim v(1 To c)
    For i = 1 To r
    For j = 1 To c
    v(j) = WS.Cells(i, j)
    Next
    obj.WriteText Join(v, myDelim), 1
    Next
    obj.SaveToFile myFile, 2
    MsgBox "done"
    End Sub
  • Helpful post
    #2
    adamas_nt
    Moderator of Programming
    Spróbuj
    Code: vbscript
    Log in, to see the code
  • #3
    etiene8912
    Level 11  
    Idealnie, bardzo bardzo dziekuje, bede mogl sie uczyc troche szybciej niz zawsze ;) ;)