Excel 2007 đôi khi mở tệp HTML làm văn bản nguồn.

Tôi sử dụng máy tính chạy hệ điều hành XP Pro. Tôi có một macro Excel 2007 tính toán URL rồi mở liên kết từ web dưới dạng tệp HTML (chức năng "surveyoutputservlet" của BLS với các tham số biến đổi, trả về dữ liệu thống kê dưới dạng HTML). Macro này đã hoạt động tốt trong nhiều tháng. Nhưng hôm qua, tệp bắt đầu mở dưới dạng tệp văn bản chứa mã nguồn HTML - trong một phần của ngày. Sau đó, macro lại hoạt động bình thường.

Thay đổi duy nhất gần đây trên máy tính của tôi là tôi đã nâng cấp IE từ phiên bản 7 lên phiên bản 8.

Có vẻ như có một số thiết lập nào đó làm thay đổi hành vi của lệnh Workbooks.Open mà tôi đang sử dụng. Hoặc có thể là một số thay đổi trong mã tệp mà Excel đang sử dụng để đọc tệp?
Hay là tôi hoàn toàn sai?
Giúp đỡ!




Trả lời:

Hãy đăng mã của bạn lên.

Chúng ta cần xác định xem vấn đề nằm ở IE hay Excel . Nếu bạn:

  1. Tải xuống tệp HTML về máy tính của bạn
  2. Mở Excel
  3. Mở tệp HTML từ bên trong Excel

Vấn đề này còn tiếp diễn không?



Trả lời:

Hãy đăng mã của bạn lên.

Chúng ta cần xác định xem vấn đề nằm ở IE hay Excel . Nếu bạn:

  1. Tải xuống tệp HTML về máy tính của bạn
  2. Mở Excel
  3. Mở tệp HTML từ bên trong Excel

Vấn đề này còn tiếp diễn không?


Trước tiên, xin chân thành cảm ơn câu trả lời của bạn.

Câu trả lời ngắn gọn cho câu hỏi tiếp theo của bạn là không - tôi không còn gặp vấn đề gì nữa.

Tệp tin mở đúng cách từ ổ cứng của tôi - cả khi tôi mở thủ công và bằng macro. Để rõ hơn - đoạn mã này trong macro không hoạt động đúng cách - Excel mở tệp tin ở dạng mã nguồn:

http://data.bls.gov/PDQ/servlet/SurveyOutputServlet?data_tool=dropmap&series_id=CES0000000001&output_type=column

Khi tôi mở tệp này bằng IE rồi lưu lại (c:\temp\Bureau of Labor Statistics data.mht), thì nó mở đúng cách cả khi mở thủ công lẫn thông qua macro.

(Workbooks.Open filename:=infileid, UpdateLinks:=0, ReadOnly:=xread)

Tóm lại, vấn đề của tôi là: khi tôi tính toán tên tệp đầu vào (thường bằng cách thay đổi đối số series_id) và sử dụng lệnh Workbooks.open trong macro, tệp đó không còn mở trong Excel dưới dạng tệp htm một cách nhất quán nữa.



Trả lời:

Có lẽ vấn đề nằm ở cách bạn mở tập tin. Ví dụ, tôi đã đăng tải một bảng HTML rất đơn giản lên SkyDrive của mình:

http://cid-46f2d0fe5f97aadb.office.live.com/browse.aspx/.Public/Sample

Tên tệp là sampleHTML.html.

Nếu bạn tải xuống tệp hoặc mở trực tiếp tệp, nó sẽ mở trong IE và hiển thị bảng. Tôi có thể mở tệp trong Excel 2007 bằng cách:

Dữ liệu > Lấy dữ liệu bên ngoài từ web

và sử dụng cùng URL mà IE hiển thị cho cùng một tệp. Tôi đã ghi lại macro như sau:

Sub Macro1()
'
' Macro1 Macro
'

'
Với ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://public.bay.livefilestore.com/y1prhOqt5wk_kRXKGiTmwLXauyWq9MIuGrvcDz4Db7eTyfVxEt7Bglm4ISnOWGmikxAge2x9aAfTc2QoC2AvY8zeA/sampleHTML.html?psid=1" _
, Điểm đến:=Phạm vi("$J$12"))
.Name = "sampleHTML.html?psid=1_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = Sai
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
Kết thúc bằng
End Sub

Hãy thử đưa dữ liệu này vào Excel rồi sau đó thử với dữ liệu của bạn.



Trả lời:

Cảm ơn bạn một lần nữa vì đã quan tâm đến vấn đề của tôi.

Macro bạn cung cấp không hoạt động với tôi. Trình gỡ lỗi đã chỉ ra rằng khi cố gắng thực thi lệnh .Refresh BackgroundQuery:=False, macro không thể tìm thấy tệp trên internet.

Tuy nhiên, tôi có thể báo cáo điều này: Như tôi đã đề cập trong email trước, phương pháp của tôi là sử dụng Workbooks.open để lấy tệp từ internet thay vì DataQuery.open. Hóa ra, macro của tôi đã có thể mở tệp mẫu của bạn trong Excel 2007 mà không gặp vấn đề gì (tất nhiên, bảng tính đó khá lộn xộn trong Excel vì nội dung của nó, nhưng hầu hết mọi thứ trên trang web đều có ở đâu đó).

Tôi chưa quen với phương pháp QueryTables.Open, vì vậy cần tìm hiểu kỹ hơn để xác định xem nó so sánh như thế nào với phương pháp Workbooks.Open và liệu nó có phù hợp với nhu cầu của tôi hay không.

Cuối cùng, tôi vẫn nghi ngờ rằng tập tin mà tôi lấy từ BLS đôi khi (một lần nữa, đây là vấn đề không phải lúc nào cũng xảy ra với tôi) lại chứa một số ký tự khác biệt — có thể là ký tự không in được ở đầu, hoặc có thể toàn bộ tập tin được mã hóa theo một cách bất thường — khiến Excel 2007 nhầm lẫn về bản chất của tập tin, dẫn đến việc nó mở tập tin đó dưới dạng tệp văn bản thay vì hiểu nó là tệp HTML.

Comments

Post a Comment

Popular posts from this blog

Xử lý hàng loạt các tệp Excel được bảo vệ bằng mật khẩu

Xử lý hàng loạt các tệp Excel được bảo vệ bằng mật khẩu Tôi đã tạo một bộ bảng chấm công của nhân viên trong một thư mục, mỗi bảng được xác định bằng tên và số ID của nhân viên, đồng thời được bảo vệ bằng Số Bảo hiểm Quốc gia của nhân viên làm mật khẩu. Họ sẽ thêm các yêu cầu làm thêm giờ và số dặm vào bảng tính của họ và tôi sẽ xử lý tất cả các tệp vào cuối tháng để lập bảng lương, thêm tất cả các bản ghi từ mỗi tệp vào bảng cơ sở dữ liệu MS Access. Một vấn đề mà tôi gặp phải là tôi không biết cách mở các tệp được bảo vệ bằng mật khẩu trong VBA để xử lý chúng. Có ai ở đó có kinh nghiệm về quá trình tương tự không? Stuart Trả lời: Xin chào, VBA để bảo vệ và không bảo vệ sổ làm việc Sub ProtectAll() Dim sh As Worksheet Làm mờ myPassword dưới dạng chuỗi myPassword = "mật khẩu" Đối với mỗi sh trong ActiveWorkbook.Worksheets sh.Protect Mật khẩu:=myPassword tiếp theo Kết thúc phụ Sub UnrotectAll() Dim sh As Worksheet Làm mờ myPassword dưới dạng chuỗi myPassword = ...
Read more

Thu hẹp và mở rộng cột trong Excel

Thu hẹp và mở rộng cột trong Excel Làm thế nào để thu hẹp hoặc mở rộng một cột khi tôi không nhìn thấy thước kẻ có chữ cái cột? Trả lời: Nhấp chuột phải vào cột > Chiều rộng cột > Tại đây, bạn có thể nhập giá trị cho các cột để thu nhỏ hoặc mở rộng. Ví dụ, bạn có thể nhập giá trị 8, gần với chiều rộng cột mặc định. Cột sẽ hiển thị. Bạn có thể kéo theo dấu phân cách cột (hoặc thước kẻ). Nếu những điều trên không phải là điều bạn muốn, tức là nếu chữ cái cột không hiển thị > Chọn bất kỳ ô nào trong cột đó > CTRL+Phím cách để chọn cột > Nhấp chuột phải > Chiều rộng cột như trong bước 1. Trả lời: Chỉ là một ý tưởng, một lựa chọn khác là sử dụng Freeze Panes để bạn luôn có thể nhìn thấy tiêu đề Cột trên cùng để thay đổi kích thước cột... Trên thanh Ribbon, nhấp vào Đóng băng ngăn - Đóng băng hàng trên cùng
Read more

Excel: Tìm và trả về "số cuối cùng" trong một cột, trong đó cột chứa: cả ô trống và số dương tùy ý (lớn hơn 0).

Image
Excel: Tìm và trả về "số cuối cùng" trong một cột, trong đó cột chứa: cả ô trống và số dương tùy ý (lớn hơn 0). Tôi có kinh nghiệm sử dụng Excel ở mức trung bình nhưng không thể hiểu cách đạt được những điều sau: 1) Về Cột K, khoảng K12 đến K377. 2) Tất cả các ô trong phạm vi trên đều là ô trống hoặc các ô chứa số dương lớn hơn 0, ví dụ: 14,37. (Lưu ý rằng sự tồn tại của các ô và số trống trong phạm vi này là hoàn toàn tùy ý (không có bất kỳ mẫu logic, lặp lại nào). 3) Tôi đang cố gắng viết một công thức (hoặc sử dụng hàm hoặc macro) yêu cầu như sau: A) Tìm kiếm trong phạm vi K12 đến K377. B) Xác định vị trí và xác định số "cuối cùng" trong cột. (LƯU Ý: Với "cuối cùng", ý tôi là số nằm gần cuối phạm vi của cột nhất. Tức là số gần nhất với hàng 377, trong cột K.) C) Dù số đó là gì, tôi muốn số đó được trả về và hiển thị trong ô tôi chọn, giả sử ô K10. D) Tự động làm mới: Lý tưởng nhất là bất cứ khi nào cột (cột K) số được chỉnh sửa (thêm vào hoặc tr...
Read more