Làm sao xuất file exel 2007 thành file .csv

[luckydophin]

Hiện tại mình có một file cần import vào fushion tables của google docs, nhưng định dạnh cho phép chỉ là .csv. Mà thử đủ cách nhưng vẫn không làm được, vì xuất file .csv của excel hỗ trợ đều bị lỗi font, còn xuất ra file .txt rồi đổi thành .csv thì khi import vào tables thì dữ liệu chỉ ở trong 1 ô mà không ở theo từng cột như trong excel!
Hy vọng ai có tuyệt chiêu nào có thể giúp đỡ mình! thanks mọi người!

 

[whitemouse]

Chào bạn : bạn sử dụng thử cái này xem nhé:
link: http://www.download.com.vn/timkiem/chuyển+đổi+Excel/index.aspx
thân.

 

[luckydophin]

Cảm ơn bạn! nhưng ko ăn thua bạn ah!
Vấn đề là lỗi font khi chuyển đổi bạn ah, phần mềm đó mình đã dùng rồi nhưng nó ko khắc phục được vấn đề lỗi font!

 

[hungkv]

Để tạo file .CSV từ Excel không bị lỗi font Unicode chữ Việt, Bạn có thể làm theo một trong hai cách sau:

* Cách 1:

Bước 1: Đổi mã vùng dữ liệu từ Unicode sang TCVN3 (Chọn vùng dữ liệu rồi chọn lệnh copy (Ctrl+C) > Nháy chuột phải vào biểu tượng Unikey ở khay hệ thống > Công cụ ... [CS+F6] > Chọn bảng mã nguồn, đích rồi nháy Chuyển mã > OK).
Paste dữ liệu trong Clipboard sang một Sheet mới (nhớ đổi font để hiển thị chữ Việt, chẳng hạn .VnTime).

Bước 2: Ghi phần dữ liệu với mã TCVN3 ra file CSV (Chọn Save As... > Chọn Save as type là CSV (Comma delimited) (*.csv) > Đặt tên file rồi Save).

Bước 3: Dùng Notepad mở file .CSV rồi đổi từ mã TCVN3 sang Unicode (xem cách làm ở Bước 1), rồi chọn Save as... và ghi lại với Encoding là UTF-8.

* Cách 2:

Bước 1: Ghi vùng dữ liệu với Unicode ra file .TXT với lựa chọn Unicode Text (.txt) như Bạn đã làm (khi đó các cột được phân cách bởi dấu tab).

Bước 2: Mở file .TXT bằng Ms Word rồi tìm và thay thế mọi dấu tab (^t) bởi dấu phảy (,). Ghi lại với lựa chọn Plain Text (.txt) và encoding là Unicode.

Chúc Bạn thành công.

 

[app]

Cách chuyển txt thành csv đơn giản!

Có 1 giải pháp khá đơn giản là:

B1: bạn "save as" file excel dạng *.txt
B2: bạn mở file txt bằng notepad và và lại chọn "save as" tiếp.
B3: trong mục file name bạn nhập vào tên file csv theo đúng mẫu sau: "file_name.csv".
Chú ý là phải đi kèm nháy kép trong file_name nhé bạn.
Ví dụ tôi sẽ đánh vào mục file name: "output.csv" (có kèm dấu nháy kép)
Đây là file csv lấy tab làm dấu phân cách, bạn có thể dùng tính năng Find&Replace để chuyển tab thành dấu ",". Bây giờ bạn đã có file csv như ý muốn rồi đấy!
Đã checked!

 

[dynamic503]

Các bác test thử code này xem sao? (St)

Public Sub WriteCSV()
Set wkb = ActiveSheet
Dim fileName As String
Dim MaxCols As Integer
fileName = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv")

If fileName = "False" Then
End
End If

On Error GoTo eh
Const adTypeText = 2
Const adSaveCreateOverWrite = 2

Dim BinaryStream
Set BinaryStream = CreateObject("ADODB.Stream")
BinaryStream.Charset = "UTF-8"
BinaryStream.Type = adTypeText
BinaryStream.Open

For r = 1 To 10
s = ""
c = 1
While Not IsEmpty(wkb.Cells(r, c).Value)
s = s & wkb.Cells(r, c).Value & ","
c = c + 1
Wend
BinaryStream.WriteText s, 1
Next r

BinaryStream.SaveToFile fileName, adSaveCreateOverWrite
BinaryStream.Close

MsgBox "CSV generated successfully"

eh:

End Sub