- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]EXCEL模板中的英文导出后自动变了 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=136378)
-- 发布时间：2019/6/12 10:56:00
-- [求助]EXCEL模板中的英文导出后自动变了
导出EXCEL文件
-- 发布时间：2019/6/12 10:57:00
--
如题，导出后EXCEL模板中的英文字体变了，导出功能中没有修改字体
-- 发布时间：2019/6/12 11:32:00
--
以下是引用wh123在2019/6/12 10:57:00的发言：
如题，导出后EXCEL模板中的英文字体变了，导出功能中没有修改字体
如题，导出后EXCEL模板中的英文字体变了，导出功能中没有修改字体
实例发上来测试
-- 发布时间：2019/6/12 11:52:00
--
Vars("dhdate")=Date.Today
Dim Book As New XLS.Book(ProjectPath & "Attachments\\到货电子件模版PL.xls")
Book.Build()
Dim h As Integer=Tables("批量到货单_Table1").RowS.Count
Dim cgdh As String=e.Form.Controls("TextBox1").value
Dim xmmc As String=e.Form.Controls("TextBox2").value
If cgdh <> "" AndAlso H>0 Then
StatusBar.Message1= "正在保存数据,请稍等..."
Application.DoEvents
Book.Save(ProjectPath & "Reports\\到货单\\" & cgdh & "-" & xmmc & ".xls")
Dim Book1 As New XLS.Book(ProjectPath & "Reports\\到货单\\" & cgdh & "-" & xmmc & ".xls") \'定义一个Excel工作簿
Dim Sheet1 As XLS.Sheet = Book1.Sheets(0) \'引用工作簿的第一个工作表
For i As Integer=9 To 9+h-1
Sheet1(i,4).Formula ="=C" & (i+1) & "* D" & (i+1)
Next
Sheet1(9+h,2).Formula ="=SUM(C10:C" & (9+h) & ")"
Sheet1(9+h,4).Formula ="=SUM(E10:E" & (9+h) & ")"
Book1.Save(ProjectPath & "Reports\\到货单\\" & cgdh & "-" & xmmc & ".xls")
End If
StatusBar.Reset()
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:到货电子件模版pl.xls |
-- 发布时间：2019/6/12 11:57:00
--
导出后英文明细标题哪一行就变黑变大了
此主题相关图片如下：微信图片_20190612115618.png
-- 发布时间：2019/6/12 12:18:00
--
你的excel模板那里，重新设置其字体，即可。