十二月, 2016 | ExcelOffice

如何用vba控制工作表单元格区域的打印？

2016年12月18日作者：exceloffice

暂无评论

用vba可以控制工作簿、工作表、单元格区域的打印方式，比如一个工作表有N页，如果要逆序打印，即从第N页开始打印，到第一页，可以用代码来调节。

如下所示：

 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

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-5ba[……]

阅读全文

如何用VBA导入导出文本文件？

2016年12月10日作者：exceloffice

暂无评论

在编写VBA解决方案时经常会遇到需要处理文本文件的情况。读取文本文件的内容或者将内容写入文本文件是一个常用的需求。

利用TextStream对象处理文本文件是首选，以下是用TextStream对象读取文本文件内容的通用代码。

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

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

[……]

阅读全文

vb中ListView控件如何添加显示多列数据？

2016年12月3日作者：exceloffice

暂无评论

由于vb中listbox控件无法显示多列数据，而ListView控件在显示多列数据方面具有很好的优势。

本文将重点介绍如何在vb中添加ListView控件来显示多列数据。

在 vb 6.0的工具箱中默认是没有ListView控件的，如果要显示ListView控件，需要在“工具箱”中鼠标右[……]

阅读全文

如何用vba控制工作表单元格区域的打印？

如何用VBA导入导出文本文件？

vb中ListView控件如何添加显示多列数据？

近期文章

功能

如何用vba控制工作表单元格区域的打印？

如何用VBA导入导出文本文件？

vb中ListView控件如何添加显示多列数据？

近期文章

关键字

功能