• 软件

  • 想请人变一个程序比对两个数据库里的内容

手头上有一批数据要处理，自己算了一下手动要336个小时的工作量而且就算自己一口气干完估计也差不多了.我向能不能找人来变个程序？下面简单描述一下任务.





数据并不复杂，两张Excel表。一个是200多家公司的名单，一个是这200多家公司的子公司的详细列表.在表一里面选择第一家公司，然后在表二里面从详细信息里找到相关的公司，然后生成一个新的变量，根据简单规则给这家公司变个代码，0，1，2三种情况而以，将0，1或2储存到这个新变量里面. 然后返回表一，选择下一家公司再到表二里面比对.







估计手动完成这200多家公司的比对需要24个小时（比较宽松的强度），问题是我有14年的数据，总时间就是336小时.







突然想了一下这么长的工作时间，不如干脆找人来编个程序算了.我想问问像我这样的任务，可以用数据库软件来编程吧？能在Excel里面实现吗？因为我手动匹配就是在Excel里面做的.VB可以吗？或者Foxpro,如果这个软件还有的话.再高级的数据库软件我也没有了.



实际情况比这个要略为复杂一点. 谢谢.
If the 14 year sheets are exactly the same format, then you can start recording a macro when you do the first sheet then apply the recorded macro to the rest 13 sheets.
谢谢楼上的。我现在在看VBA的书，打算自己编一个程序.
me too. I'm just doing some simple format using macro at this stage...
请问楼上有没有懂VBA的？我写了一个子方程模块，要比较一个字段和一个数组，如果字段在数组里面就返回True,否则返回False.



Function IsInArray(s, temp10) As Boolean

Dim i As Long

For i = LBound(temp10) To UBound(temp10)

    If temp10(i) = s Then

          IsInArray = True

    Exit For

    Else

          IsInArray = False

    End If

Next i

End Function

------------------------------

Sub test2()

Dim s As String

s = "cat"

Dim temp10(1 To 3) As String

temp10 = Array("cat", "dog", "bird")   <==高亮在这里

Dim yesno As Boolean

yesno = IsInArray(s, temp10)

Debug.Print yesno

End Sub



然后用test2()去调试。结果说“cann't assign to array”,并且高亮显示“temp10”.不知道错在哪里？

能不能帮我看看不知道错在哪里？ 本质上来说这个功能很直白的. 谢谢.
FROM HELP FILE:

To assign one array to another, make sure the array on the left-hand side of the assignment is resizable and the types of the array match.



Note You can place a whole array in a Variant, resulting in a single variant variable containing the whole array:



Dim MyArr As Variant

MyVar = Arr2()



You then reference the elements of the array in the variant with the same subscript notation as for a normal array, for example:



MyVar(3) = MyVar(1) + MyVar(5)

=================================================

Don't know how 调试 works, but I changed

Dim temp10(1 To 3) As String

to

Dim temp10 As Variant

no more errors, but no outputs either... (I suppose the code should product an output of T/F, shouldn't that?)
回楼上的，别的论坛有人指出来了。改成如下的即可.你指出的问题是对的.程序也条是通过了。回答True. Function本身是对的.



Sub test2()

Dim s As String

s = "cat"

Dim temp10 As Variant

temp10 = Array("cat", "dog", "bird")

Dim yesno As Boolean

yesno = IsInArray(s, temp10)

Debug.Print yesno

End Sub
[quote]

no more errors, but no outputs either... (I suppose the code should product an output of T/F, shouldn't that?)

[/quote]



输出在立即窗口，Ctrl+G是打开立即窗口的快捷键。