希望用SQL复制解决工作上的问题,您能帮我吗?

dxy27

QUOTE:

以下是引用TGB在2007-3-2 13:08:12的发言：

哪你就把代码拷过去试下,我这里没问题

拷贝到我的表中测试成功,其他朋友的正在测试,谢谢TGB和所有朋友!

dxy27

QUOTE:

以下是引用TGB在2007-3-2 8:24:47的发言：

俺对这个东东很菜,学着修改了一下你的附件

QUOTE:

还有几个问题,请问一下:

QUOTE:

 sh好象没有定义过,怎么直接调用呢?另外GoTo ooo中ooo是什么呀?

Sub Copydata()
    Dim u As String
    Dim path As String
    Dim mycat As New ADOX.Catalog, i As Integer, msg As String
    Dim sh As Worksheet, shName$
   
    Set rng = Sheet1.Rows(1)
    mycat.ActiveConnection = _
      "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & _
       ThisWorkbook.path & "\" & "数据.xls" ''"F:\Documents and Settings\stephen\桌面\数据.xls"
   
    For i = 1 To mycat.Tables.Count
              msg = mycat.Tables(i - 1).Name '& vbCrLf
              msg = VBA.Replace(msg, "'", "")
           
              path = ThisWorkbook.path '"F:\Documents and Settings\stephen\桌面\"
              Set conn = CreateObject("adodb.connection")
              conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;imex=0';data source=" & path & "\数据.xls"
             
              Sql = "select * from [" & msg & "e:x]" '想把YF104(20M0411)换成变量msg,用循环依次让SQL从每个表中取数据
             
              shName = Replace(msg, "$", "")
              For Each sh In ThisWorkbook.Sheets
                  If sh.Name = shName Then
                     sh.[b1].CopyFromRecordset conn.Execute(Sql)
                     rng.Copy sh.[a1]
                     GoTo ooo
                  End If
              Next
              ThisWorkbook.Sheets.Add.Name = shName
              ThisWorkbook.Sheets(shName).[b1].CopyFromRecordset conn.Execute(Sql)
              rng.Copy Sheets(shName).[a1]
ooo:
    Next
    conn.Close:
    Set conn = Nothing
End Sub

向您问好

另外GoTo ooo中ooo是什么呀?

GoTo是循环中的退出语句，当程序执行到这一句时，就会跳到　000后面那一句（本处是 next）

ooo:
    Next

向您问好

Dim sh As Worksheet

在这里已经定义了sh为工作表对象

For Each sh In ThisWorkbook.Sheets　　为sh在本工作簿中的所有工作表中循环，当然有时也有不定义的

dxy27

QUOTE:

以下是引用向您问好在2007-3-2 21:56:23的发言：

Dim sh As Worksheet

在这里已经定义了sh为工作表对象

For Each sh In ThisWorkbook.Sheets　　为sh在本工作簿中的所有工作表中循环，当然有时也有不定义的

以前我总觉得要在所有工作表中循环,需要先取得工作表数量  .COUNT

然后用

FOR i=1 TO .COUNT

SHEETS( i)           做循环,这样用多少有点理解不了

[em06]

TGB

For Each sh In ThisWorkbook.Sheets　　

这个是在工作表集合中循环,用惯了觉得比用for i=1 to sheets.count方便

dxy27

ooo

是一句固定用法吗?

TGB

QUOTE:

以下是引用dxy27在2007-3-3 9:47:15的发言：

ooo

是一句固定用法吗?

不是,只是一种习惯,也可以用HH,KK,LL,是一个标签,也就是说当条件满足时就跳到这里,不执行goto ooo 到　ooo:之间的

代码.ooo:也即标签,需是行中的开头.以下是在工作表中循环,如果已存在这个名字的工作表,执行SQL并跳过新建工作表这段................................................

  For Each sh In ThisWorkbook.Sheets
                  If sh.Name = shName Then
                     sh.[b1].CopyFromRecordset conn.Execute(Sql)
                     rng.Copy sh.[a1]
                     GoTo ooo
                  End If
              Next
              ThisWorkbook.Sheets.Add.Name = shName
              ThisWorkbook.Sheets(shName).[b1].CopyFromRecordset conn.Execute(Sql)
              rng.Copy Sheets(shName).[a1]
ooo:
    Next

dxy27

解释得非常清楚,再次感谢!