Convert dbf to xls (2003)! (1 người xem)

[ThuNghi]

Nhờ các bạn viết hộ 1 đọan code.
tại khung command của fox khi do 1 .prg thì lấy từ dữ liệu dbf sang .xls và copy vào sheet1 từ dòng 5. Dòng cuối thì Bold.
Nhớ rằng chương trình này chạy từ khung command của fox.
Không phải dùng công cụ export.
Xin cám ơn.

 

[sealand]

Mình thấy chả phải code gì dài dòng, giả sử bạn có file data.dbf giờ muốn xuất ra temp.xls

set defa to .....đường dẫn
use data.dbf 
export to temp xls

Hay có thể gộp

use  path + data
export to temp xls

Như vậy đã xuất toàn bộ file sang Excel, file temp.xls nằm cùng thư mục file nguồn.

Cú pháp của lệnh EXPORT như sau:

EXPORT TO FileName [TYPE]
DIF | MOD | SYLK | WK1 | WKS | WR1 | WRK | XLS | XL5
[FIELDS FieldList] [Scope] [FOR lExpression1] [WHILE lExpression2]
[NOOPTIMIZE] [AS nCodePage]

Bạn sử dụng For, While để chọn lọc theo yêu cầu (Xin lỗi không đọc kỹ câu hỏi nhưng mình dùng lệnh có được không)

 

[ThuNghi]

Cám ơn bác đã quan tâm.
Bác có thể viết thành 1 file *.prg để có thể Do là là OK luôn.
Cụ thể là file d:\Data\abc.dbf sang d:\Data\congno.xls tại Sheet1 và appen vào từ dòng 5, dòng tổng (dòng cuối) thì bold, kẻ khung file excel. Tất cả dùng những câu lệnh Fox.

 

[sealand]

Thu Nghi ơi, VBA và VB nó là họ hàng thì còn có thể chư với hàng xóm như VS Fox thì quá khó. Mình biết nó trao đổi dữ liệu cho nhau, chứ chưa biết nó sử lý tương tác lẫn nhau ra sao.

 

[hagialai1982]

Cám ơn bạn Sealand rất nhiều.

 

[honeyphuc84]

Cám ơn bác đã quan tâm.
Bác có thể viết thành 1 file *.prg để có thể Do là là OK luôn.
Cụ thể là file d:\Data\abc.dbf sang d:\Data\congno.xls tại Sheet1 và appen vào từ dòng 5, dòng tổng (dòng cuối) thì bold, kẻ khung file excel. Tất cả dùng những câu lệnh Fox.

Cái này anh Thu Nghi hỏi tắt ngang quá, chưa hiểu mục tiêu cuối cùng của anh là gì, nhưng có vẻ như là anh đang hướng dẫn cho người khác vậy
Em chỉ biết là sau khi DO 1 prg và chương trình xuất ra cho mình 1 file DPF,
Muốn chuyển từ DPF sang xls thì anh viết câu lệnh trên command là
COPY TO tên file TYPE XLS
xls chỉ ghi nhận tối đa là 16.000 dòng, nếu số record nhiều hơn 16.000 dòng thì phải xuất thành nhiều hơn 1 file excel (chứ không thể vào nhiều sheet trong 1 file xls), lúc đó câu lệnh sẽ là
COPY TO tên file_1 FOR BETWEEN(RECNO(),1,16000) TYPE XLS
COPY TO tên file_2 FOR BETWEEN(RECNO(),16001,32000) TYPE XLS
....
Lưu lại thành 1 prg
lúc đó anh có file excel và tùy anh xử lý tiếp,
Lệnh APPEND em chỉ sử dụng trong trường hợp gộp nhiều file DPF lại với nhau thôi
Còn các trường hợp còn lại thì em chưa được rõ mục tiêu nên không trình bày tiếp được, nhờ các anh chị khác tiếp tục
Nguyên tắc đặt tên file trong DPF, khi xuất từ DPF sang xls là không dấu, không khoảng trắng,viết dính liền nhau, ví dụ Chinhanh_HaNoi_batdongsan

 

[tieulongnu.duongqua]

Cám ơn Phúc đã trả lời nhưng Phúc ơi, đề tài này năm nẳm nào đó rồi 30-05-09 09:09 AM. Hiện lão ThuNghi ấy đâu còn quan tâm nữa.

 

[honeyphuc84]

Cám ơn Phúc đã trả lời nhưng Phúc ơi, đề tài này năm nẳm nào đó rồi 30-05-09 09:09 AM. Hiện lão ThuNghi ấy đâu còn quan tâm nữa.

hehe, đúng là Phúc không để ý, tại hồi sáng giờ công việc bị tẩu hoả quá, nhảy vào GPE xem, thấy cái topic này nên vào ấy mà, do bị "hoa mắt" rồi nên đọc không hết, mà có thấy ai trả lời đâu nà, tại năm ngoái Phúc không vào đọc, nếu biết bác ấy hỏi thì trả lời năm ngoái rồi, khekhe
xấu hổ chưa nè,