手机如何打开xlsx文件(手机如何打开u盘文件)

大家好，关于手机如何打开xlsx文件(手机如何打开u盘文件)很多朋友都还不太明白，不过没关系，因为今天小编就来为大家分享关于手机如何打开xlsx文件(手机如何打开u盘文件)的知识点，相信应该可以解决大家的一些困惑和问题，如果碰巧可以解决您的问题，还望关注下本站哦，希望对各位有所帮助！

读取XLSX文件内容-SystemExcel库使用教程

使用XLSXApp对象读取XLSX文件，Sheet1的文本内容

Private Sub Command1_Click()

Dim DoXLSX As XLSXApp

Dim MaxRow As Integer

Dim MaxCol As Integer

Dim i As Integer

Dim j As Integer

Dim Data As String

Dim Error As String

Set DoXLSX = New XLSXApp

'打开XLSX文件

If DoXLSX.Open("Test1.xlsx", Error) = False Then

MsgBox Error

Set DoXLSX = Nothing

Exit Sub

End If

'选择Sheet1

If DoXLSX.SelSheet("Sheet1", Error) = False Then

DoXLSX.Close

Set DoXLSX = Nothing

MsgBox Error

Exit Sub

End If

'读取Excel行和列信息

MaxRow = DoXLSX.GetRowTotal

MaxCol = DoXLSX.GetColumnCount

If MaxRow = 0 Or MaxCol = 0 Then

DoXLSX.Close

Set DoXLSX = Nothing

MsgBox "没有数据！"

Exit Sub

End If

'读取数据

Data = ""

For i = 1 To MaxRow

If i > 1 Then Data = Data & vbCrLf

For j = 1 To MaxCol

If j > 1 Then Data = Data & vbTab

Data = Data & DoXLSX.Rs(j, i)

Next

Next

'关闭XLSX文件

DoXLSX.Close

Set DoXLSX = Nothing

MsgBox Data

End Sub

XLSX工作表管理-SystemExcel库使用教程

使用XLSXApp对象管理XLSX文件的工作表

函数

GetSheetTotal -- 得到工作表数量

代码

Private Sub cmdGetSheetTotal_Click()

Dim DoXLSX As XLSXApp

Dim Error As String

Set DoXLSX = New XLSXApp

'打开XLSX文件

If DoXLSX.Open("Test1.xlsx", Error) = False Then

MsgBox Error

Set DoXLSX = Nothing

Exit Sub

End If

'得到表数

MsgBox "工作表数：" & DoXLSX.GetSheetTotal

'关闭XLSX文件

DoXLSX.Close

Set DoXLSX = Nothing

End Sub

运行效果

函数

GetSheetName -- 得到指定序号的工作表的表名

代码

Private Sub Command1_Click()

Dim DoXLSX As XLSXApp

Dim SheetName As String

Dim Error As String

Set DoXLSX = New XLSXApp

'打开XLSX文件

If DoXLSX.Open("Test1.xlsx", Error) = False Then

MsgBox Error

Set DoXLSX = Nothing

Exit Sub

End If

'得到表名

If DoXLSX.GetSheetName(1, SheetName, Error) = False Then

MsgBox Error

Set DoXLSX = Nothing

Exit Sub

End If

MsgBox "第一个工作表名：" & SheetName

'关闭XLSX文件

DoXLSX.Close

Set DoXLSX = Nothing

End Sub

运行效果

函数

AddSheet -- 添加一个工作表到最后位置

代码

Private Sub Command2_Click()

Dim DoXLSX As XLSXApp

Dim SheetName As String

Dim Error As String

Set DoXLSX = New XLSXApp

'打开XLSX文件

If DoXLSX.Open("Test1.xlsx", Error) = False Then

MsgBox Error

Set DoXLSX = Nothing

Exit Sub

End If

'添加表

If DoXLSX.AddSheet("NewSheet", Error) = False Then

MsgBox Error

Set DoXLSX = Nothing

Exit Sub

End If

DoXLSX.Save

'关闭XLSX文件

DoXLSX.Close

Set DoXLSX = Nothing

MsgBox "操作成功！"

End Sub

运行效果

函数

DelSheet -- 删除一个工作表

代码

Private Sub Command3_Click()

Dim DoXLSX As XLSXApp

Dim SheetName As String

Dim Error As String

Set DoXLSX = New XLSXApp

'打开XLSX文件

If DoXLSX.Open("Test1.xlsx", Error) = False Then

MsgBox Error

Set DoXLSX = Nothing

Exit Sub

End If

'删除表

If DoXLSX.DelSheet("NewSheet", Error) = False Then

MsgBox Error

Set DoXLSX = Nothing

Exit Sub

End If

DoXLSX.Save

'关闭XLSX文件

DoXLSX.Close

Set DoXLSX = Nothing

MsgBox "操作成功！"

End Sub

运行效果

函数

RenameSheet -- 修改一个工作表的表名

代码

Private Sub Command4_Click()

Dim DoXLSX As XLSXApp

Dim SheetName As String

Dim Error As String

Set DoXLSX = New XLSXApp

'打开XLSX文件

If DoXLSX.Open("Test1.xlsx", Error) = False Then

MsgBox Error

Set DoXLSX = Nothing

Exit Sub

End If

'修改表

If DoXLSX.RenameSheet("Sheet1", "First", Error) = False Then

MsgBox Error

Set DoXLSX = Nothing

Exit Sub

End If

DoXLSX.Save

'关闭XLSX文件

DoXLSX.Close

Set DoXLSX = Nothing

MsgBox "操作成功！"

End Sub

运行效果

关于手机如何打开xlsx文件(手机如何打开u盘文件)的内容到此结束，希望对大家有所帮助。