GoldenLine
Zaloguj się

konto usunięte

Temat: Poprawa kodu makra - zapisz jako

Posiadam makro o kodzie jak ponizej, makro ma wyeksportowac liste slowek w pliku excel do formatu utf8.
Wszystko dziala dosc dobrze, lecz stworzylem szablon "eskport do anki", i jak uruchomie ponizsze makro to ono zapisuje mi ten szablon jak plik tekstowy, a ja chcialbym, zeby makro tworzylo nowy plik txt (utf8) bez ruszania szablonu.
Moze jakies sugestie jak moge poprawic jego kod ?

Sub export_to_anki()
'
' export_to_anki Makro
' Prepare export form Excel sheet to Anki 1 st column - word 2 nd column - definition
'
' Klawisz skrótu: Ctrl+g
'
With ActiveWorkbook.WebOptions
.RelyOnCSS = True
.OrganizeInFolder = True
.UseLongFileNames = True
.DownloadComponents = False
.RelyOnVML = False
.AllowPNG = True
.ScreenSize = msoScreenSize1024x768
.PixelsPerInch = 96
.Encoding = msoEncodingUTF8
End With
With Application.DefaultWebOptions
.SaveHiddenData = True
.LoadPictures = True
.UpdateLinksOnSave = True
.CheckIfOfficeIsHTMLEditor = True
.AlwaysSaveInDefaultEncoding = False
.SaveNewWebPagesAsWebArchives = True
End With
Set okno = Application.FileDialog(msoFileDialogFolderPicker)
okno.Show
sciezka = okno.SelectedItems(1)
ActiveWorkbook.SaveAs Filename:=sciezka & "\import.txt", FileFormat:=xlUnicodeText, CreateBackup:=False
End Sub
Link do wypowiedziLink
Oskar Shon

Oskar Shon Dodatki do Office
www.VBATools.pl

Temat: Poprawa kodu makra - zapisz jako

http://www.di-mgt.com.au/howto-convert-vba-unicode-to-...
Link do wypowiedziLink

konto usunięte

Temat: Poprawa kodu makra - zapisz jako

chyba nie do konca rozumiem, co masz na mysli przez ten link - wedlug niego moge zapisac bezposrednio cos z excela do utf 8

do programu anki nie moge zaimportowac pliku excel, albo jego kolumny - musze zaimportowac plik txt w kodowaniu utf8

moglbys rozwinac o co Ci dokladnie chodzi ?
Link do wypowiedziLink
Oskar Shon

Oskar Shon Dodatki do Office
www.VBATools.pl

Temat: Poprawa kodu makra - zapisz jako

No nie chce ci sprzedać rozwiązania, bo napiszesz ze chcesz się tego sam nauczyć,
Włącz sobie zatem tłumacza i jeśli to nie wystarczy szukaj rozwiązań.
Sprawdź na czym polega zapis w formatach, jak tworzyć takie pliki i jak prze konwertować dane aby zachować ten standard..
Link do wypowiedziLink

konto usunięte

Temat: Poprawa kodu makra - zapisz jako

Ok, dzieki za pomoc zapytam na zagranicznych forach - ja nie mam pojecia o programowaniu - a makro jest mi tylko potrzebnego do tego, zeby uproscic sobie eksport slowek i zamknac temat.
Pytalem czy moglbys rozwinac to o czym piszesz dwa posty wyzej ?
Link do wypowiedziLink

konto usunięte

Temat: Poprawa kodu makra - zapisz jako

uzywam funkcji z szablonu ze strony ktora podales - zapisuje mi ona moje imie i nazwisko jako liczby ????
chyba raczej nie o to mi chodzilo
Link do wypowiedziLink
Artur D.

Artur D. Solution Architect,
Atos IT Services Sp.
z o.o.

Temat: Poprawa kodu makra - zapisz jako

Zapisz jako zwykły plik tekstowy, a potem najszybszy jest power shell (>=win7)

get-content $filepath | out-file $output_path -encoding utf8

Bez zabaw w VBATen post został edytowany przez Autora dnia 25.02.16 o godzinie 12:55
Link do wypowiedziLink

konto usunięte

Temat: Poprawa kodu makra - zapisz jako

dzieki, ale sprawe rozwiazalem tak jak ponizej, mi w 150 % to wystarcza, robi co potrzeba, jeszcze tylko drobne przerobki musze zrobic, ale to juz w moim wlasnym zakresie

Sub ADODB_method()
'Apr 15, 2014
' 1 kolumna slowo, 2 kolumna definicja badz tlumaczenie
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
Link do wypowiedziLink
Oskar Shon

Oskar Shon Dodatki do Office
www.VBATools.pl

Temat: Poprawa kodu makra - zapisz jako

U mnie to otwarcie pliku binarnie - stąd te cyferki.
ty jednak zastosowałeś inną metodę. Jeśli działa to super.
Link do wypowiedziLink

konto usunięte

Temat: Poprawa kodu makra - zapisz jako

Maly szczegol techniczny ktory ulatwil by mi prace z excelem i Anki - jak wpisac w kod makra powyzej - okno dialogowe z wyborem miejsca zapisu i wyborem nazwy pliku ?
Czyli uruchamiam makro, ono mi przerabia plik i pojawia sie pytanie - wybierz miejsce zapisu, i nazwe pliku ?
Link do wypowiedziLink
Sławomir Broda

Sławomir Broda VBA, Excel, Access,
SAP i wszystko
związane z
automatyzac...

Temat: Poprawa kodu makra - zapisz jako

Kamil Z.:
Maly szczegol techniczny ktory ulatwil by mi prace z excelem i Anki - jak wpisac w kod makra powyzej - okno dialogowe z wyborem miejsca zapisu i wyborem nazwy pliku ?
Czyli uruchamiam makro, ono mi przerabia plik i pojawia sie pytanie - wybierz miejsce zapisu, i nazwe pliku ?
https://msdn.microsoft.com/en-us/library/office/ff83622...
Link do wypowiedziLink

konto usunięte

Temat: Poprawa kodu makra - zapisz jako

??????
Link do wypowiedziLink
Damian Zurawski

Damian Zurawski Data Engineer w
Grupie Żywiec

Temat: Poprawa kodu makra - zapisz jako

[...] okno dialogowe z wyborem miejsca zapisu i wyborem nazwy pliku ?

fileName = Application.GetSaveAsFilename("Przykladowa nazwa pliku")
ActiveWorkbook.SaveAs fileName
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy


Następna dyskusja:

PDF jako tło arkusza Excela




Wyślij zaproszenie do
Anuluj