请教关于EXCEL操作ACCESS的问题

GUANCHZH

roych 发表于 2011-9-10 13:18
我这里测试没多大问题，不过你最后根据实际做进一步的测试。

非常感谢"roych ",问题解决了.{:soso_e189:}{:soso_e181:}

GUANCHZH

roych 发表于 2011-9-10 13:18
我这里测试没多大问题，不过你最后根据实际做进一步的测试。

非常感谢"roych "的帮助,现在又有一个新问题要请教"roych "兄.比如在数据库中,表:"成品编码规则"的字段名为“桥架字母码3”中的值是"AA、AB、AC、AD、AE"的字母.我要将该字段中最大字母的下一个字母(也就是"AE"的下一个字母“AF”)填到单元格"A1"中.这样应该怎样实现?

GUANCHZH

谁能帮我解决一下这个问提,比如在数据库中,表:"成品编码规则"的字段名为“桥架字母码3”中的值是"AA、AB、AC、AD、AE"的字母.我要将该字段中最大字母的下一个字母(也就是"AE"的下一个字母“AF”)填到单元格"A1"中.这样应该怎样实现?
急急急急急急{:soso_e103:}

roych

拜托，你就不能变通一下么？例如，用Right函数提取最后一个字母，再按之前的方法转换，然后再用"&"连接符和Left函数来处理。
事实上，最好在Excel里整好了再保存（导入或追加等）在Access里。毕竟这样写代码始终不是一个好办法。

GUANCHZH

我就是想不通过Excel辅助导入或追到Access里。还请麻烦roych 兄把具体的代码写给我好吗?在此不胜感激!

roych

对于多位字母的文本，则循环提取字母并对其判断是否达到“Z”，因而进位处理起来相当麻烦（如果不写循环的话，则需要进行If的嵌套，也不见得简单）。所以这里只处理2位字母~~

1. Sub ShowMaxMin()
   
2. Dim db As DAO.Database
   
3. Dim rst As DAO.Recordset
   
4. Dim strL As String, strR As String
   
5. Set db = DAO.OpenDatabase(ThisWorkbook.Path & "\db3.mdb")
   
6. Set rst = db.OpenRecordset("select 桥架字母码3 from 成品编码规则 where len(桥架字母码3)=2 order by 桥架字母码3")
   
7. rst.MoveLast
   
8. strL = UCase(Left(rst(0).Value, 1))
   
9. strR = UCase(Right(rst(0).Value, 1))
   
10. '仅适用于2位字母的进位情况
    
11. '具体表现为：AA→AB……AZ→BA等等。其中ZZ进位为AAA，是为上限。
    
12. If strR = "Z" Then
    
13.     If strL = "Z" Then
    
14.         Sheet2.[a1] = "AAA"
    
15.     Else
    
16.         Sheet2.[a1] = Chr(Asc(strL) + 1) & "A"
    
17.     End If
    
18. Else
    
19.     Sheet2.[a1] = strL & Chr(Asc(strR) + 1)
    
20. End If
    
21. rst.MoveFirst
    
22. Sheet2.[a2] = rst(0).Value
    
23. rst.Close
    
24. Set rst = Nothing
    
25. End Sub

复制代码

GUANCHZH

非常感谢"roych "{:soso_e181:}