固定格式导入，怎样才能更精简代码？

一杯绿茶　发表于：2011-03-06 14:02:10 　

我的固定格式导入已经成功，但是由于在EXCEL中的列是不固定的，从A—AZ不等，我现在的是从A到AA每一列都写了一句读取和写入数据的代码，我想应该可以用循环操作，就是这个不知道怎样进行循环操作，请老师帮忙修改一下，谢谢！导入实例在附件中。

罗衣惹轻尘发表于：2011-03-06 20:06:23

可以，但你要重新修改红尘的代码，用offset来做，把这一段代替你比较长的那一段就好了

            For i = 3 To 25
              If .range("B" & intN).offset(0, i) = "√" Then
                    rst1.AddNew
                    rst1!年级 = .range("B" & intN)
                    rst1!姓名 = .range("C" & intN)
                    rst1!学号 = .range("D" & intN)
                    rst1!考试科目 = .range("B1").offset(0, i)
                    rst1!考试时间 = .range("B2").offset(0, i)
                    rst1.Update
                    rst1.MoveNext
                End If
            Next i

Top

罗衣惹轻尘发表于：2011-03-06 20:11:07

说实话，与其这样导入，还不如在Excel里用数据透视表处理后再做进一步动作。

Top

煮江品茶发表于：2011-03-07 12:42:22

赞成罗衣同志二楼所论。调整出一个规范的Excel表比折腾出一串代码简单许多，而且除非在系统开始时需要这样的表格导入，通常情况下应该在Access中直接输入数据，不宜用Excel作为Access的外部数据器。

Top

一杯绿茶发表于：2011-03-07 13:54:03

我这个数据就在高校的网站下载出来的。只有这种格式，因此，我就用导入到我的指定格式然后再进行一下步编辑。谢谢各位！

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

[5分]固定格式导入，怎样才能更精简代码？