Excel 项目定制、网页数据抓取、股票彩票表格、Excel培训
用vba可以控制工作簿、工作表、单元格区域的打印方式，比如一个工作表有N页，如果要逆序打印，即从第N页开始打印，到第一页，可以用代码来调节。
如下所示：
|
1 2 3 4 5 6 7 8 9 10 11 |
Sub QQ1722187970() Dim oWK As Worksheet Set oWK = Sheet1 With oWK '获取工作表的总打印页数 iPTotal = .PageSetup.Pages.Count For i = iPTotal To 1 Step -1 .PrintOut i, i Next i End With End Sub |
如果需要每页各打印2份，则可以用以下的代码：
[crayon-5b3[……]
在编写VBA解决方案时经常会遇到需要处理文本文件的情况。读取文本文件的内容或者将内容写入文本文件是一个常用的需求。
利用TextStream对象处理文本文件是首选，以下是用TextStream对象读取文本文件内容的通用代码。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 |
Sub QQ1722187970() '定义打开文本文件的3种模式常量 Const ForAppending = 8 Const ForReading = 1 Const ForWriting = 2 Dim oFSO Dim oTextStream Dim sPath As String '定义文件所在的完整路径变量 Dim sFilePath As String sPath = Excel.ThisWorkbook.Path sFilePath = sPath & "\table.txt" Dim sContent As String Dim arr, i, arr1 Set oFSO = CreateObject("Scripting.FileSystemObject") With oFSO '判断文件是否存在 If .FileExists(sFilePath) Then '打开读取 Set oTextStream = .OpenTextFile(sFilePath, ForReading) With oTextStream '全部一次性读取 sContent = .ReadAll arr = Split(sContent, vbNewLine) For i = 0 To UBound(arr) arr1 = Split(arr(i), vbTab) Next i '或者逐行提取 Do Until .AtEndOfStream sContent = .ReadLine Loop End With End If End With End Sub |
[……]