在 Windows 窗體中，我需要將數(shù)據(jù)（A 列到 C 列）從 Excel 導(dǎo)出到 HTML。我正在嘗試如下，但在namedRanges中得到“未找到類型‘工作表’上的公共成員‘NamedaRanges’”。之后無法驗證是否會成功保存 HTML。請幫忙解決這個問題。Private Sub Button_click() xlSheet=xlWB.Worksheets("Sheet3") xlSheet.NamedRanges.SetPrintArea (xlSheet.Cells.GetSubrange ("A1",C1")) xlSheet.SaveAs(FileName:="C:\Users\ Sample.html",FileFormat:=xlHtml)End Sub
1 回答
尚方寶劍之說
TA貢獻1788條經(jīng)驗 獲得超4個贊
對于非連續(xù)范圍，您可能必須將其作為連續(xù)范圍復(fù)制到臨時工作表并將其導(dǎo)出
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Const folder = "C:\tmp\"
Const xlFile = "test1.xlsx"
Const htmlfile = "export.html"
Dim xls As New Excel.Application
Dim wb As Workbook
Dim ws As Worksheet, wsHtml As Worksheet
wb = xls.Workbooks.Open(folder & xlFile, False, True) ' no link update , radonly
ws = wb.Worksheets("Sheet3")
' create temp sheet, copy range to it, export and then delete it
wsHtml = wb.Sheets.Add()
ws.Range("A:A,C:C").Copy(wsHtml.Range("A1"))
wsHtml.PageSetup.PrintArea = wsHtml.Columns("A:B").Address
wsHtml.SaveAs(Filename:=folder & htmlfile, FileFormat:=44) ' html
xls.DisplayAlerts = False
wsHtml.Delete()
xls.DisplayAlerts = True
wb.Close(False)
xls.Quit()
MsgBox("Exported to " & folder & htmlfile)
End Sub
- 1 回答
- 0 關(guān)注
- 167 瀏覽
添加回答
舉報
0/150
提交
取消