Excel VBA - 文本文件和文件夹操作实例集锦(5)

Dim cell As Range

Application.ScreenUpdating = False Mypa = ThisWorkbook.Path & \Myr = [b65536].End(xlUp).Row: n = 2 Range(\

If [a1] = \★\ Filename = Mypa & aa & \ Open Filename For Append As #1 Do Until ActiveCell.Row > Myr

Cells.Find(What:=\★\ rr = ActiveCell.Row

ActiveCell.Offset(-rr + n - 1, 1).Resize(rr - n + 1, 1).Select Set cell = Selection '选择数据 cols = cell.Columns.Count rows = cell.rows.Count Selection.Copy Range(\

Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _ , Transpose:=True

Application.CutCopyMode = False cols = cols + 7 cols1 = rows + 7 For i = cols To cols1

Data = Cells(1, i) '一单元格的数据 If IsEmpty(Cells(1, i)) Then Data = \ If i <> cols1 Then

Print #1, (Data) & \ '数据没有\加空格 （如果用 Write #1,Data; 则文本中数据有””）

Else

Print #1, (Data) End If Next i

Selection.ClearContents Cells(rr, 1).Select n = rr + 1 Loop

Close #1

Application.ScreenUpdating = True End Sub

‘http://club.excelhome.net/viewthread.php?tid=596265&pid=4001678&page=1&extra=page=1

Sub dcdwb()

Dim Filename$, Data$, aa$, Mypa$, Arr

Dim rows As Long, col% Dim i%, j%, Myr%, rr%, n

Application.ScreenUpdating = False Mypa = ThisWorkbook.Path & \Myr = [b65536].End(xlUp).Row Arr = Range(\

For i = 1 To UBound(Arr) Step 4 n = 0: col = col + 1

Filename = Mypa & col & \ '文件名 Open Filename For Output As #1 For rr = i To i + 4