我在将sqlserver数据库的内容,转化为excel的过程中,数据出现乱码,如何处理?急,在线等。(50分)

  • 主题发起人 主题发起人 chenwei1215
  • 开始时间 开始时间
C

chenwei1215

Unregistered / Unconfirmed
GUEST, unregistred user!
我在将sqlserver数据库的numeric字段的内容,转化为excel的过程中,在数据的前面出现乱码¥,如2.000转化为excel中,就变成了¥2.000,请问如何处理?急,在线等。
 
真的很着急,大家帮帮忙了。谢谢了。
 
顶!!!
 
觉得是个选项的问题,我去试试。
 
ok,谢谢了。
 
我在ms sql2000到excel2000表的转换中未发现你的问题。
请你进一步描述。
 
进一步测试,发现money字段的导出有点乱。
numeric没有问题。
 
我将数据库中的一条记录中的float数据,导出到excel表格中在2226.000和2.000等前面会多出来一个¥符号。
变电站 不平衡率报警值(%) 入口电量(kWH) 出口电量(kWH) 不平衡电量(kWH) 不平衡率崮山35kV 2.000 222600.000 222215.000 385.000 0.173
 
REM -----------------------------------------------
REM --- 定义Excel变量,以便打开Excel -------
REM -----------------------------------------------
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

REM ------------------------------------------------
REM --- 缺省将报表标题传递给Excel -------
REM ------------------------------------------------
Row=2
Index=(Rpt.FieldCount)/2
xlSheet.Cells(Row,Index).Value="变电站母线不平衡率"

REM ------------------------------------------------
REM --- 设置标题和字段的字体属性 -------
REM ------------------------------------------------
xlSheet.Rows(2).Font.Name="宋体"
xlSheet.Rows(2).Font.color=clred
xlSheet.Rows(2).Font.bold=true
xlSheet.Rows(2).Font.size=16
xlSheet.Rows(4).Font.Name="宋体"
xlSheet.Rows(4).Font.color=clblue
xlSheet.Rows(4).Font.bold=true
xlSheet.Rows(4).Font.size=12

REM ------------------------------------------------
REM --- 设置各个列的宽度 -------
REM ------------------------------------------------
xlSheet.Columns(1).ColumnWidth=15
xlSheet.Columns(2).ColumnWidth=15
xlSheet.Columns(3).ColumnWidth=15
xlSheet.Columns(4).ColumnWidth=15
xlSheet.Columns(5).ColumnWidth=15
xlSheet.Columns(6).ColumnWidth=15
xlSheet.Columns(7).ColumnWidth=16
xlSheet.Columns(8).ColumnWidth=15
xlSheet.Columns(9).ColumnWidth=15
xlSheet.Columns(10).ColumnWidth=28

REM ------------------------------------------------
REM --- 缺省将所有字段标题传递给Excel -------
REM ------------------------------------------------
Row=4
Index=1
for I=1 to Rpt.FieldCount
xlSheet.Cells(Row,Index).Value=Rpt.FieldTitleByIndex(Index-1)
Index=Index+1
NEXT

REM ------------------------------------------------
REM --- 缺省将所有字段传递给Excel -------
REM ------------------------------------------------
Row=5
Index=1
Rpt.GotoFirst
DO while not (Rpt.EOF = True)
Index=1
for I=1 to Rpt.FieldCount
xlSheet.Cells(Row,Index).Value=Rpt.FieldByIndex(Index-1)
Index=Index+1
NEXT
Row=Row+1
Rpt.GotoNext
LOOP
REM ------------------------------------------------
REM --- 设置打印单元格网线 -------
REM ------------------------------------------------
xlsheet.PageSetup.PrintGridLines=True

REM ------------------------------------------------
REM --- 缺省将报表标题传递给Excel -------
REM ------------------------------------------------
xlapp.caption="变电站母线不平衡率"

REM ------------------------------------------------
REM --- 打开Excel的显示 -------------
REM ------------------------------------------------
xlApp.Visible=True

以上是我的excel脚本,不知道错误的原因出在哪里?你帮忙看看,谢了。
 
我的测试是float字段的转换没有问题。
 
那你看看我的这段代码有问题吗?
 
这些代码本身应该是没问题。
可能是内部的转换有问题。
我是从mssql来做的转换。
 
我也是用mssql做的转换呀,但是他就报错。你先忙吧,我在看看程序。也许能够找到问题。谢谢了。
 
请各位DFW帮忙看看,为什么我将数据库中的numeric类型的内容转化为excel的时候,会在数据的前面多了一个¥的符号?如2.800转化为excel之后就变成了¥2.800。
 
呵呵,问题已经解决了,谢谢syto。送你50分。
 
后退
顶部