首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VBA >

ACCESS对Excel表格进行编辑的有关问题

2012-03-23 
ACCESS对Excel表格进行编辑的问题我用ACCESS编程处理数据,然后将处理结果导出到Excel表格中,由于处理结果

ACCESS对Excel表格进行编辑的问题
我用ACCESS编程处理数据,然后将处理结果导出到Excel表格中,由于处理结果中有一列是要用○△×这三个符号表示,但是我发现ACCESS里面无法正常显示这些符号,复制这些符号到ACCESS表里都显示成??这样的乱码了。不知道是不是因为我的ACCESS是英文版的缘故。所以只好在ACCESS表里用1,0,-1来代替○,△,×这三个符号,但是导出的EXCEL表里还是要把1,0,-1改回○,△,×这三个符号,请假如何操作?因为数据量比较大,每次导出到EXCEL都是整张表一起导出,不能按行导出,那样就太慢了。
请知情人帮忙解答此问题,不胜感激!

[解决办法]
樓主可以再導出完之後,在EXCEL中寫個VBA宏去更改
以下供參考:
Sub test()
Dim i As Long
 
For i = 2 To 3000
If Range("A" & i) = 1 Then
Range("A" & i) = "○"
ElseIf Range("A" & i) = 0 Then
Range("A" & i) = "△"
Else
Range("A" & i) = "×"
End If
Next 'i
End Sub
[解决办法]
Dim objRange as Object

Set objRange = objWorksheet.Cells(i, 9) '9即为第I列
If objRange = "-1" Then objRange = "×"
If objRange = "0" Then objRange = "△"
If objRange = "1" Then objRange = "○"

热点排行