將Excel寫入到TXT中

標題 excel表中右鍵查看代碼 輸入如下代碼 Sub GetDataFromExcel() Dim arr, brr, t t = Timer arr = ActiveSheet.UsedRange ReDim brr(1 To UBound(arr, 1)) For a = 1 To UBound(arr, 1) brr(a) = arr(a, 1) For b = 2 To UBound(a

>>阅读原文<<