在工作1的sheet1中包含所有地區的資料，我用vba加工處理後得到一個地區的資料，把他複製到D:\資料\工作簿2的sheet1中（工作簿2需要新建）；然後迴圈把另一個區域的資料複製到D:\資料\工作簿3的sheet1中Sub test()Set CONN = CreateObject("ADODB.Connection")CONN.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullNameSql = "********""Sheets("sheet2").[a3].CopyFromRecordset CONN.Execute(Sql) ‘我這裡只是複製到同一個工作簿的sheet2中CONN.Close: Set CONN = NothingEnd Sub
在工作1的sheet1中包含所有地區的資料，我用vba加工處理後得到一個地區的資料，把他複製到D:\資料\工作簿2的sheet1中（工作簿2需要新建）；然後迴圈把另一個區域的資料複製到D:\資料\工作簿3的sheet1中Sub test()Set CONN = CreateObject("ADODB.Connection")CONN.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullNameSql = "********""Sheets("sheet2").[a3].CopyFromRecordset CONN.Execute(Sql) ‘我這裡只是複製到同一個工作簿的sheet2中CONN.Close: Set CONN = NothingEnd Sub