表循环问题

cangqiong

<>前提 我用的是ACCESS的一个查询 想导入 EXCEL表中.</P>
<>'------------------------------------------------------------------------</P>
<>Private Sub Command41_Click()</P>
<P>dim str as string<BR>str = 取得路径() &amp; "\C1_HL别设备综合效率管理" </P>
<P>Set wb = Workbooks.Open("" &amp; str &amp; "")<BR><FONT color=#e61a94>Set ws = wb.Worksheets("717")       注释：EXCEL中717工作表  </FONT></P>
<P><FONT color=#0000ff>Set rs = CurrentDb.OpenRecordset("工作组导出")</FONT>    '<FONT color=#e61a94><FONT color=#000000>注释</FONT>:</FONT>打开ACCESS中,"工作组导出"的查询</P>
<P>Call 工作组</P>
<P>'-------------------------------------------------------------------<BR>想要的结果是:我不想单独选择EXCEL中717一个工作表(粉色部分).我想要循环. <FONT color=#0909f7>如果ACCESS中工作组导出查询</FONT>中有717.就在导入的EXCEL工作表中循环找到717,并导入.</P>
<P>工作表循环怎么写语句?(粉色部分)</P>

cangqiong

<BR>上传了两个图片  一张是ACCESS中的  一张是EXCEL中的

cangqiong

<>帮帮我啊.</P>