一样的啊,只不过循环行而已,如下面的j就代表行,随便循环写入就行了:
ws.Cells(j, i+1).Value = Tables("表名").Rows(i)("列名")
我是这样理解的,就是出错,刚重做了一遍已经OK了.