欢迎加我的QQ群:193522571,一起来讨论、交流!
摘要: Sub csv() Dim Fs, myFile As Object Dim myfileline As String 'txtfile的行数据 Dim sht As Worksheet For Each sht In ThisWorkbook.Sheets ns = sht.Cells(1, 8... 阅读全文
posted @ 2015-05-31 10:03 swtool 阅读(6472) 评论(1) 推荐(0)
欢迎加我的QQ群:193522571,一起来讨论、交流!