dim sj =xlapp.activeworkbook.sheets(1).range("a1:d100").value怎样把object类型的二维数组转化为byte数组sjk,然后再采用My.Computer.FileSystem.WriteAllBytes(dth, sjk, False)方法把byte数组sjk写入dth文件?
用Buffer.BlockCopy转换