A folyamat az átalakítás az MS Excel napló© a ADIF viszonylag egyszerű, és lehet tenni egy kis programozás VBA. Ezzel link utalhat az előírásoknak ADIF 1.0 mellyel a legtöbb napló, Fontos, hogy elolvassa ezt a dokumentumot.
Indításához átalakítási folyamat alapján a bemutató kezdete létrehoz egy fájlt az MS Excel©. Az első fehérnemű Írja a nevét, a mezők lesz akar importálni (Kérjük, ellenőrizze a ADIF 1.0 A neve mezők). Még az első sorban, típusú “ADIF RAW” na utolsó cella, Ez az, ahol a szöveget írt ADIF.
A munkalap hogy néz ki (de nincs adat a sorban 2). Bár a ADIF formátum nem adja meg a minimális számú területen, legalább a QSO be kell értékek Call, QSO_Date, Time_On, Zenekar e mód.
Ezután válasszuk ki a teljes munkalap és formázza a cellákat szövegként.
Mentse a fájlt xls2adi.xls (munkalap MS Excel©)
Térjünk most írni, és helyezze be a kódot VBA. Kattintson az Eszközök / Makró, majd kattintson a Visual Basic Editor (Alt F11).
A VBA szerkesztőben kattintson duplán a "ThisWorkbook’ , ami a "Projekt – VBAProject ". Itt kap a fő blokk kód fog futni, ha megnyitjuk ezt a fájlt újra.
A blokk a következő kóddal meghatározza bizonyos változók, és felhívja a funkció fCampoAdifValido (vonal 05) , hogy ellenőrizni fogja, ha a mező nevét, amely az első sor megegyezik a specifikációja a ADIF. Ha minden a mezőneveket helyes függvény meghívja az eljárást pEscreveAdif (vonal 09) fogja írni a napló a ADIF, Ha a mező érvénytelen név a funkció megmutatja hibaüzenet (vonal 07) és véget ér.
Copy / paste, vagy írja be az alábbi kódot:
Private Sub Workbook_Open()
As Boolean Dim bNomeDoCampoValido
(conLinhaInicial)
sUltimaColuna = fQualEAUltimaColuna(conColunaInicial)
bNomeDoCampoValido = fCampoAdifValido(conColunaInicial, sUltimaColuna)
Ha bNomeDoCampoValido = False Aztán
("Talált érvénytelen mezőneveket" & vbCrLf & "Távolítsuk el a kitöltött oszlopok piros!")
Más
A VBA szerkesztő, kattintson a Beszúrás / modul. Ebben a modulban lesz a maradék kódot, hogy hívják a fő blokk.
Az állandók conLinhaInicial (vonal 02 A következő blokk) és conColunaInicial (vonal 03 A következő blokk) meg a sor 2 (Táblázatkezelő) már az első bejegyzés és az oszlop (Táblázatkezelő) Az első mező.
A funkciók fQualEAUltimaLinha (vonal 08 A következő blokk) és fQualEAUltimaColuna (vonal 17 A következő blokk) határozza meg az utolsó sor és oszlop adatai. Ez megköveteli egy üres cella végét jelenti a napló rekordok.
A funkció fCampoAdifValido (vonal 05 nem az előző bloco) tesztek érvényességét a mező neve. A ciklus "Select Case sNomeDoCampo’ (vonal 31 A következő blokk) több területen is ki specifikáció szerint a ADIF.
Az eljárás pEscreveAdif (vonal 09 nem az előző bloco) fogja írni a szöveget az oszlop, amely ADIF “ADIF RAW” az első sorban. Ez az eljárás venni a területen Ifen QSO_DATE, A két pont a területen, és hozzá egy TIME_ON M végén a mező BAND. Ahhoz, hogy ez még makró kiszabható szigorúbb ellenőrzési feltételeire vonatkozó adatokat az eljárás.
Copy / paste, vagy írja be az alábbi kódot a modul:
Option Explicit
2
Public Const conColunaInicial As String = "A"
As Integer Public iUltimaLinha
(iPrimeiraLinha As Integer) As Integer
(Folha1.Cells(iValRecebido, "A")) > 0
iValRecebido = iValRecebido + 1
Hurok
- 1
End Function
(sPrimeiraColuna As String) A Karakterlánc
(sPrimeiraColuna)
Do While Len(Folha1.Cells(1, Chr(iValRecebido))) > 0
iValRecebido = iValRecebido + 1
Hurok
(iValRecebido - 1)
End Function
(sPrimeiraColuna As String, sUltimaColuna As String) A Boolean
(sPrimeiraColuna) Az Asc(sUltimaColuna)
sNomeDoCampo = LCase(Folha1.Cells(1, iColunaCorrente - 64))
Válassza Case sNomeDoCampo
"zenekar": fCampoAdifValido = True
"hívás": fCampoAdifValido = True
"CQZ": fCampoAdifValido = True
"üzemmód": fCampoAdifValido = True
"qso_date": fCampoAdifValido = True
"rst_rcvd": fCampoAdifValido = True
"rst_sent": fCampoAdifValido = True
"Srx": fCampoAdifValido = True
"stx": fCampoAdifValido = True
"time_on": fCampoAdifValido = True
"adif nyers"
fCampoAdifValido = True
- 64
Case Else
(1, iColunaCorrente - 64).Interior.Color = RGB(255, 0, 0)
fCampoAdifValido = False
()
As Integer Dim iLinhaCorrente
""
A iColunaCorrente = Asc(conColunaInicial) Az Asc(sUltimaColuna) - 1
Ha LCase(Folha1.Cells(1, Chr(iColunaCorrente))) = "zenekar" Akkor
(iLinhaCorrente, Chr(iColunaCorrente)) & "M"
Más
(Folha1.Cells(1, Chr(iColunaCorrente))) = "qso_date" Akkor
(Folha1.Cells(iLinhaCorrente, Chr(iColunaCorrente)), "-", "")
Más
(Folha1.Cells(1, Chr(iColunaCorrente))) = "time_on" Akkor
(Folha1.Cells(iLinhaCorrente, Chr(iColunaCorrente)), ":", "")
Más
(iLinhaCorrente, Chr(iColunaCorrente))
End If
& "<" & LCase(Folha1.Cells(1, Chr(iColunaCorrente))) & ":" & Csak(sTextoNaCelula) & ">" & sTextoNaCelula
(iLinhaCorrente, iAdifRaw) = SLinhaEmAdif & "<" & "EOR" & ">"
Következő
Kattintson a File / Save xls2adi.xls és zárja be a VBA szerkesztő.
Most másolja az adatokat a MS Excel fájlok© szeretnénk konvertálni a megfelelő oszlopok, komoly kilép a végén, és MS Excel©.
Lehet, hogy módosítania kell a beállításokat MS Excel sugurança© futtatható makrók, ha szükséges, menj az Eszközök / Makró, majd kattintson a Biztonsági, válasszon egy alacsonyabb. Ezt írták a MS Excel© em MS Windows XP© (mind a portugál változatban). Használja ezt a kódot noutra vai lingua, például az angol, helyébe a "Munka1’ por "Munka1’
Ha duplán kattint a fájlra xls2adi.xls, A kódot most lépett hajtják végre, és az oszlop “ADIF RAW” a mi Belépés ADIF formátumban.
Most, hogy befejezze, válassza ki az oszlop tartalmának “ADIF RAW” és másolás (Ctrl C), kezdő vagy Jegyzettömb (Jegyzettömb) és Cole (Ctrl V). Mentsük el a fájlt a kiterjesztés.
Ez a kód minta szabadon felhasználható, Ön szabadon használhatja. Ez egy nagyon egyszerű példát, amit csak akkor lehet megvalósítani a VBA (Visual Basic for Applications). Kiegészítik ezt a kódot érvényesítések pontosabb, különösen azokon a területeken "qso_date’ e 'time_on ", ahol a formátumok meg kell egyeznie a specifikáció ADIF. Ha hibát észlel, vagy bármilyen kérdése, ne habozzon megjegyzést. Remélem a cikk hasznos lesz.
