Note: The other languages of the website are Google-translated. Back to English

Làm cách nào để chuyển đổi hàng loạt nhiều tệp CSV sang tệp XLS (X) trong Excel?

Để chuyển đổi tệp CSV sang tệp XlS hoặc XLSX rất dễ dàng cho bạn bằng cách áp dụng tính năng Lưu dưới dạng. Tuy nhiên, để chuyển đổi nhiều tệp CSV sang tệp XLS hoặc XLSX từ một thư mục rất tốn thời gian bằng cách lưu từng tệp một theo cách thủ công. Ở đây tôi giới thiệu một mã macro để nhanh chóng chuyển đổi hàng loạt tất cả các tệp CSV sang tệp XLS (x) từ một thư mục.

Chuyển đổi hàng loạt tệp CSV sang tệp XlS (X) với mã macro


Chuyển đổi hàng loạt tệp CSV sang tệp XlS (X) với mã macro

Để chuyển đổi nhiều tệp CSV từ một thư mục sang tệp XLS (X), bạn có thể thực hiện theo các bước sau:

1. Bật một sổ làm việc mới, nhấn Alt + F11 chìa khóa để mở Microsoft Visual Basic cho các ứng dụng cửa sổ và nhấp chuột Chèn > Mô-đun. Xem ảnh chụp màn hình:
doc chuyển đổi hàng loạt cvs xls 1

Chú thích: Đảm bảo rằng tất cả các tệp CSV bạn muốn chuyển đổi đều được đóng.

2. Sau đó, dán mã macro bên dưới vào Mô-đun script và nhấn F5 phím để chạy mã.

VBA: Chuyển đổi CSV sang XLS

Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xCSVFile As String
    Dim xWsheet As String
    Application.DisplayAlerts = False
    Application.StatusBar = True
    xWsheet = ActiveWorkbook.Name
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Select a folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xCSVFile = Dir(xSPath & "*.csv")
    Do While xCSVFile <> ""
        Application.StatusBar = "Converting: " & xCSVFile
        Workbooks.Open Filename:=xSPath & xCSVFile
        ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlNormal
        ActiveWorkbook.Close
        Windows(xWsheet).Activate
        xCSVFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
End Sub

3. Trong hộp thoại bật ra, chọn thư mục được chỉ định chứa các tệp CSV bạn muốn chuyển đổi. Xem ảnh chụp màn hình:
doc chuyển đổi hàng loạt cvs xls 2

4. nhấp chuột OK, tất cả các tệp CSV trong thư mục đã chọn đã được chuyển đổi thành tệp XLS trong đó.
doc chuyển đổi hàng loạt cvs xls 3

Mẹo: Nếu bạn muốn chuyển đổi tệp CSV sang tệp XLSX, bạn sử dụng mã VBA bên dưới.

VBA: Chuyển đổi tệp CSV sang XLSX

Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xCSVFile As String
    Dim xWsheet As String
    Application.DisplayAlerts = False
    Application.StatusBar = True
    xWsheet = ActiveWorkbook.Name
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Select a folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xCSVFile = Dir(xSPath & "*.csv")
    Do While xCSVFile <> ""
        Application.StatusBar = "Converting: " & xCSVFile
        Workbooks.Open Filename:=xSPath & xCSVFile
        ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault
        ActiveWorkbook.Close
        Windows(xWsheet).Activate
        xCSVFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
End Sub

nhanh chóng chuyển đổi hoặc xuất một loạt trang tính để tách XLS / Word / PDF hoặc các tệp định dạng khác trong một lần

Thông thường, Excel không hỗ trợ bạn tùy chọn để xuất hoặc lưu nhanh một dải ô dưới dạng tệp CSV hoặc Excel. Nếu bạn muốn lưu một dải dữ liệu dưới dạng CSV hoặc sổ làm việc trong Excel, bạn có thể cần sử dụng Macro VBA để thực hiện việc này hoặc sao chép dải ô vào khay nhớ tạm và dán nó vào một sổ làm việc mới, sau đó lưu sổ làm việc dưới dạng CSV hoặc Sách bài tập. Kutools cho Excel tăng cường Excel với Phạm vi xuất khẩu thành tệp tiện ích cho người dùng Excel muốn xử lý nhanh các thao tác sau :  Nhấp để 30-ngày dùng thử miễn phí đầy đủ tính năng!
doc xuất phạm vi ô sang tệp
 
Kutools cho Excel: với hơn 300 bổ trợ Excel tiện dụng, dùng thử miễn phí không giới hạn về số lượng 30 ngày

Các bài báo tương đối:


Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
officetab dưới cùng
Nhận xét (38)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi muốn làm ngược lại - chuyển đổi XLS thành CSV. tập lệnh này có hoạt động không?
CSVtoXLS phụ ()
'Cập nhật bởiExtendoffice20170814
Làm mờ xFd dưới dạng FileDialog
Làm mờ xSPath dưới dạng chuỗi
Dim xXLSFile dưới dạng chuỗi
Làm mờ xWsheet thành chuỗi
Application.DisplayAlerts = Sai
Ứng dụng.StatusBar = Đúng
xWsheet = ActiveWorkbook.Name
Đặt xFd = Application.FileDialog (msoFileDialogFolderPicker)
xFd.Title = "Chọn một thư mục:"
Nếu xFd.Show = -1 Thì
xSPath = xFd.SelectedItems (1)
Khác
Thoát Sub
Cuối Nếu
If Right (xSPath, 1) <> "\" Then xSPath = xSPath + "\"
xXLSFile = Dir (xSPath & "* .xls")
Làm trong khi xXLSFile <> ""
Application.StatusBar = "Chuyển đổi:" & xXLSFile
Workbooks.Open Filename: = xSPath & xXLSFile
ActiveWorkbook.SaveAs Replace (xSPath & xXLSFile, ".xls", ".csv", vbTextCompare), xlNormal
ActiveWorkbook.Close
Windows (xWsheet). Kích hoạt
xXLSFile = Dir
Vòng lặp
Application.StatusBar = Sai
Ứng dụng.DisplayAlerts = Đúng
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Sub ConvertCSVToXlsx ()



Làm mờ tệp tin của tôi dưới dạng chuỗi

Làm mờ oldfname thành chuỗi, newfname thành chuỗi

Làm mờ tệp công việc

Dim thư mụcName As String



Application.DisplayAlerts = Sai

Application.ScreenUpdating = Sai



'Chụp tên tệp hiện tại

myfile = ActiveWorkbook.Name



'Đặt tên thư mục để hoạt động thông qua

folderName = "D: \ tmp \"



'Lặp lại tất cả các tệp CSV trong thư mục

workfile = Dir (folderName & "* .CSV")

Do While workfile <> ""

'Mở tệp CSV

Workbooks.Open Filename: = folderName & workfile

'Chụp tên tệp CSV cũ

oldfname = ActiveWorkbook.FullName

'Chuyển đổi sang XLSX

newfname = folderName & Left (ActiveWorkbook.Name, Len (ActiveWorkbook.Name) - 4) & ".xlsx"

ActiveWorkbook.SaveAs Filename: = newfname, FileFormat: = xlOpenXMLWorkbook, CreateBackup: = True

ActiveWorkbook.Close

'Xóa tệp CSV cũ

Giết tên cũ

Windows (myfile). Kích hoạt

workfile = Dir ()

Vòng lặp



Ứng dụng.DisplayAlerts = Đúng

Application.ScreenUpdating = True



End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
"Mẹo: Nếu bạn muốn chuyển đổi tệp CSV sang tệp XLXS, bạn chỉ cần thay đổi .xls thành .xlsx trong macro ActiveWorkbook.SaveAs Replace (xSPath & xCSVFile," .csv "," .xls ", vbTextCompare)."

Tôi đã thử điều này và Excel không thể mở các tệp kết quả. Tôi nhận được thông báo sau: "Excel không thể mở tệp 'filename.xlsx' vì định dạng tệp hoặc phần mở rộng tệp không hợp lệ. Xác minh rằng tệp không bị hỏng và phần mở rộng tệp phù hợp với định dạng của tệp."

Tuy nhiên, tập lệnh đã thành công khi chuyển đổi thành .xls.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã không tìm thấy vấn đề đó trước đây, cảm ơn bạn đã nhận xét chính xác. Tôi đã sửa lại mẹo.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn rất nhiều vì tập lệnh xuất sắc của bạn cho CSV sang XLS. Nó hữu ích hơn nhiều cho công việc của tôi
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào,

Tập lệnh của bạn rất tuyệt nhưng nó không chuyển đổi csv được phân tách bằng dấu chấm phẩy. Bạn có thể vui lòng đăng một giải pháp cho những người?

Cảm ơn bạn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin lỗi , ở đây tôi không có bất kỳ giải pháp nào, có thể bạn có thể đặt câu hỏi của mình lên diễn đàn của chúng tôi, người khác có thể giúp bạn. https://www.extendoffice.com/forum.html
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi có thể đã đến muộn.

Thay đổi 'Workbooks.Open Filename: = xSPath & xCSVFile' Bằng cách này 'Workbooks.Open Filename: = xSPath & xCSVFile, Delimiter: = ";", Local: = True'
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã sử dụng tệp nhiều csv thành nhiều xls nhưng nhận được sai tệp xls de csv có; thông tin riêng biệt nhưng trở thành cùng nhau trong các ô. Làm thế nào điều này có thể được giải quyết?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mã không thể hỗ trợ tệp csv dấu phẩy được phân tách.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Khi tôi đặt tên thư mục, chương trình cho biết, "Không có tệp nào phù hợp với tìm kiếm của bạn." Nhưng có 2,609 tệp .csv trong thư mục
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mã không hỗ trợ tệp csv được phân tách bằng dấu phẩy, tệp của bạn có nằm trong trường hợp này không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào bạn,

một bài báo tuyệt vời - cảm ơn bạn! Hầu như làm việc cho tôi.

Đây là sự cố: Tôi có một tệp csv được phân tách bằng dấu sổ đứng. Tôi đã thay đổi dấu phân cách cửa sổ mặc định (thông qua bảng điều khiển / cài đặt khu vực) thành "|". Vì vậy, khi tôi mở tệp csv bằng Excel, nó sẽ mở ra, trực tiếp đọc và phân tích cú pháp các trường thành các cột một cách chính xác. Tất cả những gì tôi phải làm là lưu dưới dạng xls hoặc xlsx, đã xong. Khi tôi xem mã của bạn, đó sẽ là những gì mã thực hiện: Nó mở các tệp csv trong một thư mục, lưu chúng dưới dạng xls hoặc xlsx và lặp lại điều đó.

Đây là vấn đề: Khi tôi mở các tệp Excel đó, các dấu phân cách ống dẫn vẫn ở đó, không có gì được phân tích cú pháp thành các cột. Đây là hành vi như trước khi tôi thay đổi cài đặt mặc định được phân cách bằng dấu sổ đứng trong cài đặt Windows. Vì vậy, có vẻ như Excel không sử dụng các cài đặt Windows đó. Tôi đã xác minh điều này bằng cách thay thế các dấu phân tách bằng dấu phẩy trong một bản sao của tệp - trong số hai tệp, dấu phân tách bằng dấu sổ đứng vẫn chưa được phân tách, dấu phân cách bằng dấu phẩy được chuyển đổi tốt.

Bất kỳ ý tưởng nào về nơi có thể tìm thấy hoặc thay đổi dấu phân cách bằng dấu phẩy có sẵn trong Excel, hoặc liệu có cách nào trong mã để thực hiện điều đó không? Tôi KHÔNG muốn phải thực hiện tìm kiếm và thay thế, sau đó lưu ...

Cảm ơn HC
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nếu bạn muốn chia dữ liệu thành cột dựa trên dấu phân cách ống dẫn trong Excel, chỉ cần sử dụng hàm Văn bản thành Cột để chia dữ liệu theo / sau khi phủ tệp csv thành xls.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Không thực sự làm cho mã hữu ích cho các tệp excel.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tập lệnh tuyệt vời đã làm việc cho tôi sau khi thử tất cả các tập lệnh khác có sẵn trên google. Tôi đã thêm vài dòng nữa thực hiện thao tác chuyển văn bản thành cột mà tôi muốn. Ai đó có thể giúp tôi cách sửa đổi tập lệnh bằng cách chỉ định vị trí thư mục trong ổ đĩa cục bộ thay vì mở hộp thoại vì tôi đang thực sự tự động hóa hệ thống không
. Cảm ơn trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hi
Bạn có thể chia sẻ tập lệnh thực hiện chuyển văn bản thành cột ??
Trân trọng
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tập lệnh tuyệt vời sau khi tìm kiếm tất cả các tập lệnh khác có sẵn trên google. Ai có thể giúp cách sửa đổi tập lệnh này bằng cách chỉ định vị trí thư mục trong ổ đĩa cục bộ thay vì cho phép nó mở hộp thoại vì tôi đang thực sự tự động hóa hệ thống. Cảm ơn trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Một đoạn mã tuyệt vời. Rất hữu ích. Nếu tôi không nhầm thì mã cho .xlsx trông giống như mã .xls.

Đường thẳng này:
ActiveWorkbook.SaveAs Replace (xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlWorkbookDefault

Tôi giả sử nó phải là: ".csv", ".xlsx", vbTextCompare, v.v.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã thay đổi mã như vậy, được mô tả ở trên; bây giờ tập lệnh hoạt động như mong đợi: nó tạo ra các tệp xlsx
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
không, bạn không có. nó vẫn nói xls trong cả hai phiên bản.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
macro này không hiển thị tệp csv của tôi
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Một vấn đề nhỏ với mã này là một số độ chính xác (số thập phân) có thể bị mất khi mở csv và lưu nó dưới dạng xlsx.
Cách để ngăn điều này là chọn tất cả các ô ngay sau khi mở, đặt số chữ số thập phân thành số lượng mong muốn (15 đối với cá nhân tôi) và * sau đó * lưu dưới dạng xlsx

Nếu không, xlsx có ít chi tiết hơn (độ chính xác về số thập phân kém hơn) so với csv ban đầu, điều này có thể dẫn đến sự cố trong một số ứng dụng
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
nó thay đổi định dạng cột ngày của tôi từ dd-mm-yyyy thành dd / mm / yyyy, xin mọi người có thể giúp cách ngăn tập lệnh này thay đổi định dạng cột.
Cảm ơn rất nhiều.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, viper, sau khi chuyển đổi, bạn có thể định dạng lại chúng, chọn ngày tháng và nhấp chuột phải để chọn Định dạng Ô từ menu ngữ cảnh, trong hộp thoại Định dạng Celld, bên dưới tab Số, bấm Tùy chỉnh trong danh sách Thể loại, sau đó nhập mm-dd- yyyy vào hộp văn bản ở phần bên phải. Hoặc nếu bạn có Kutools cho Excel, áp dụng Định dạng Ngày Áp dụng để thay đổi định dạng ngày khi bạn cần.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bài báo tuyệt vời. Làm cách nào để lưu tất cả các tệp đã chuyển đổi vào một vị trí mới? Bạn có thể vui lòng cập nhật mã và gửi nó cho tôi. Giống như cho phép người dùng chọn thư mục đích của mình.


Cảm ơn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bạn gặp lỗi trên dòng 22 của csv thành xlsx
Có lỗi - ActiveWorkbook.SaveAs Replace (xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlWorkbookDefault
Đã sửa - ActiveWorkbook.SaveAs Replace (xSPath & xCSVFile, ".csv", ".xslx", vbTextCompare), xlWorkbookDefault
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn lời nhắc nhở của bạn, tôi đã cập nhật nó, cảm ơn một lần nữa.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi gặp lỗi "Biến đối tượng hoặc với biến khối chưa được đặt" cho dòng này:
xFd.Title = "/Users/[my.name]/Documents/[myFolder]" >> đây là đường dẫn của một thư mục cụ thể trên máy tính của tôi nơi tôi đang thực hiện chuyển đổi (thư mục có một loạt các tệp csv bên trong )

Tôi đang làm gì đó sai ở đây?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều này đang hoạt động đối với tôi, nhưng phần mở rộng tệp không thay đổi. Bất kỳ lời khuyên?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Đối với tôi cũng vậy - tất cả các tệp vẫn còn .csv.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tất cả các tệp csv bạn chọn đã được lưu dưới dạng tệp excel mới, tệp gốc (csv) không thay đổi, hiện có các tệp excel mới với nội dung tương tự.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã từng gặp vấn đề tương tự. Nếu tệp nguồn của bạn có phần mở rộng bằng chữ in hoa (.CSV) thì tệp đó không hoạt động. Chỉ cần thay thế .csv thành .CSV trong mã ở dòng 22 và sau đó nó sẽ hoạt động. Chà, ít nhất là đối với tôi, nó đã làm được.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm cách nào để kết hợp mã vào quy trình tệp hàng loạt XLSX để phân tách dữ liệu thành các cột riêng biệt? Mã được chia sẻ chuyển đổi tệp từ .csv thành .xlsx, nhưng nó không tách dữ liệu thành các cột riêng biệt.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
vâng, nó không hoạt động.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Công ty Buenos dias

Adiciona a lo que hace el script, quisiera poder converttir inmediatamente el texto en columnas, por la opción que no es delimitado por ningún tipo de caracter, adicional los tamaños de las columnas son diferentes. Vale la pena aclarar que si tomo cada archivo por splitdo y le aplico la opción de texto en columnas, bajo esa opción los puedo mui trần sin problemas, abriéndolos una por una, pero si grabo esa macro y le aplico la misma macro a todos, bao gồm usando la opción de "USAR TÀI LIỆU THAM KHẢO LIÊN QUAN", no hace el proceso bien, porque el graba las posiciones de la delimitación del archivo que uso de ejemplo, pero necesito que lo aplique nuevo a cada archivo, es decir, como si abriera cada archivo nuevo y le hiciera manualmente la opción de delimitación y no aplique los valores de ubicación de las columnas Idificados en el archivo ejemplo.

Ya insertte esa opcion en este archivo, sin cấm vận pasa lo que indico en la lineas arriba, độc tấu saber como puedo hacer para aplicar la convert a cada archivo, aplicando la delimitacion del campo como su fuera un archivo nuevo.


Workbooks.Open Filename: = xSPath & xCSVFile
ActiveWorkbook.SaveAs Replace (xSPath & xCSVFile, ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault

ESTA PARTE ES LA QUE ĐỒNG Ý APLICANDO EL FORMATO DEL TEXTO A COLUMNAS

StartRow: = 1, DataType: = xlFixedWidth, FieldInfo: = Array (Array (0, 1), Array (18 _
, 1), Array (38, 1)), TrailingMinusNumbers: = True
ActiveCell.Cells.Select
ActiveCell.Cells.EntireColumn.AutoFit
ActiveCell.Offset (1, 0) .Range ("A1"). Chọn
ActiveWorkbook.Save

HỢP ĐỒNG HASTA AQUI YO

ActiveWorkbook.Close
Windows (xWsheet). Kích hoạt
xCSVFile = Dir

Vòng lặp
Application.StatusBar = Sai
Ứng dụng.DisplayAlerts = Đúng
End Sub

No se si me hago explicar bien, pero es mi problemma.
Không có bình luận nào được đăng ở đây
Tải thêm

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL