- Tham gia
- 9/10/06
- Bài viết
- 180
- Được thích
- 185
Đây là một thủ tục đơn giản giúp bạn xuất một vùng dữ liệu được lựa chọn ra 1 trang html dưới dạng bảng, lưu và mở file html này lên cho bạn.
Chúc vui!
Mã:
Sub taobang()
Dim i As Integer
Dim j As Integer
Dim ie As InternetExplorer
Dim filehtml As String
so = FreeFile
Open "bang.htm" For Output As #so
'tao trang html
Print #so, "<html><head><title>Tao bang voi VBA</title></head><body>"
'tao bang voi duong vien la 1
Print #so, "<Table border=1 align=center width=300>"
With Selection
For i = 1 To .Rows.Count
'tao dong
Print #so, "<tr>"
For j = 1 To .Columns.Count
'tao cot
Print #so, "<td align=center>"
Print #so, .Cells(i, j)
Print #so, "</td>"
Next
'ket thuc dong
Print #so, "</tr>"
Next
'ket thuc bang
Print #so, "</table>"
'ket thuc trang html
Print #so, "</body></html>"
Close #so
End With
filehtml = ThisWorkbook.Path
filehtml = filehtml & "\bang.htm"
If Dir(filehtml) = "" Then
MsgBox "khong tim thay file"
GoTo ketthuc:
End If
'mo file html
Set ie = New InternetExplorer
With ie
.Navigate filehtml
.Visible = True
End With
ketthuc:
End SubChúc vui!
