DBF->EXCEL кирилица

Здравейте,
имам следния проблем:
ОФИС 2000 - EXCEL с Open си отварям DBF файл (от тези дето са за ДДС-арската програма на НОИ) и не се вижда кирилицата.

Предистория:
Имаше инсталиран ФЛЕКСТЪП и същата версия и много шрифтове. Запазих цялата информация на друг диск, изтрих този (с форматиране) и инсталирах наново ВИНДОВСА 98.
След това сложих кирилицата на инжинера.
След това същия ОФИС пакет (пълна инсталация)

Като ми излезе този проблем, си казах:"Лесна работа, маркираш и сменяш шрифта!" Да, ама НЕ!
После си инсталирах всички шрифтове от дето са били на старата инсталация (от control panel-a - install fonts) - не става

Стартирам си Ексел-а, давам си OPEN - на файлите. Пита ме как да го разкодира - (мак,ДОС,Ascci) - каквото и да избера - тц!

От Add Ins - включих всичко.

Сега се питам като онези от рекламата:
"КЪДЕ СБЪРКАХМЕ" (ВИНДОВС-А?, ОФФИС-А? , ФЛЕКСТЪПА ли е бил, или просто в предклавиатурното устройство е проблема)

Моля за F1

Може да се види малко дълго, но мога да ти помогна само с това.
Преди известно време си правих за собствени нужди програма за конвертиране на DBF файлове, писани на кирилица под DOS в кирилица под Windows. Програмата си работи добре, но сега като зареждам файла с Excel 2003 излиза непознат текст. Ако зареждам оригиналния файл, някои от символите също не се визуализират правилно.
Направих следния експеримент. Конвертирах с моята програма, след което използвах програмата DBF to XLS ([линк]) и получения файл (XLS) се изобрази както си трябва.
Ако те устройва това [линк] - само предварително копирай DBF файла някъде, че програмата извършва промените директно в него, а може да се наложи да инсталираш BDE.

Ако нямаш BDE това [линк] може да ти свърши работа.

При Win 98 мисля, че само Флекса ще ти реши проблема. При по-високите версии има и други решения (виж тук)

DBF файловете трябва да отваряш не с Open, а по този начин:
1. Data->Import External Data->Import Data - Отваря се прозорец Select Data Source.
2. Натискаш бутон New Source... - отваря се Data Connection Wizard
3. Избираш ODBS DSN и кликваш Next>
4. Избираш Visual FoxPro Tables, Next>
5. В прозореца Configure Connection избираш Free Table Directory, натискаш Browse и избираш директорията, която съдържа DBF-ите.
6. Натискаш OK два пъти, което те връща в Data Connection Wizard.
7. Махаш отметката от Connect to a specific table, в текст бокса File Name пишеш някакво име напр. MyDBFs и натискаш Finish, което те връща в прозореца Select Data Source.
8. Маркираш файла MyDBFs.odc и натискаш Open.
9. От прозореца, който се отваря избираш DBF-а, който те интересува и натискаш OK.
10. В прозорчето Import Data избираш къде да ти се импортират данните - в текущия шийт или в нов и натискаш OK. Ако DBF-ът е много голям, може да се наложи да почакаш.
Стъпките от 2 до 7 се правят еднократно, само за да създадеш връзка с директорията, съдържаща DBF-ите. За да отваряш други DBF-и, достатъчно е да ги слагаш в тази директория и да следваш стъпки 1->8->9->10.

Описаната процедура се отнася за Excel 2003, но би трябвало да работи и с 2000, най-много да има по-различни имена на прозорци/бутони.

при мене положението беше абсолютно същото. Не се конвертираше нито в ДОС нито в ЕКСЕЛ. ВИН-а е 98-СЕ.За това направих следното:
1.Драснах си следното кодче на DBASE:

para Name1
NameFile=name1
if len(name1)>4
raz=subst(name1,len(name1)-2,3)
raz=upper(raz)
if raz="DBF"
use &NameFile
copy to c:\decode0 deli
use
else
copy file &NameFile to c:\decode0.txt
endif
end

и го компилирах като DECODE1.EXE

2.Драснах и следния код на BP:

Var
f,f1:text;
nameFile,NameFile1,S1,s2:string;
ch:char;
bt:byte absolute ch;
i,L:Byte;
begin
nameFile:='C:\decode0.txt';
nameFile1:='C:\decode.txt';
assign(f,NameFile);
reset(f);
assign(f1,NameFile1);
rewrite(f1);
while not eof(f) do
begin
readln(f,s1);
s2:='';
L:=length(s1);
for i:=1 to L do
begin
ch:=s1;
if bt>=128 then bt:=bt+64;
s2:=s2+ch;
end;
writeln(f1,s2);
end;

и го компилирах в DECODE2.TXT

3.направих си следния БАТ файл:

decode1 %1
decode2
del c:\decode0.txt

и го записах като DECODE.BAT

4.След това намерих си папката \WINDOWS\SENDTO и си направих там Shortcut към DECODE.BAT , като след името си сложих %1

5.И ако ми се налага да прекодирам некой текстов или DBF файл - цъквам на него с десния бутон и си избирам DECODE. И вече в си имам декодиран файл - C:\DECODE.TXT . Този файл си го отварям с notepad-a или EXCEL-a


Ако немаш компилатори - драсни един ред да ти ги кача компилираните файли нейде из НЕТ-а

Function DosWin()
Dim i As Long
Dim s As String
Dim c As Byte
For Each Cell In Selection
s = Cell.Value
For i = 1 To Len(s)
c = Asc(Mid$(s, i, 1))
If c > 127 And c < 192 Then
c = c + 64
Mid(s, i, 1) = Chr$(c)
End If
Next i
Cell.Value = s
Next
End Function