简单分享一些学习Access2019 Bible的笔记

jiao3232

分享窗体查询小案例

jiao3232

一些excel的自学笔记：

合并工作簿

Sub 合并工作簿()

Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xlsx),*.xlsx", MultiSelect:=True, Title:="合并工作薄")
MsgBox (FileOpen(2))

X = 1
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(X), Password:=""
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Password:="" '删除文件保护密码

Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

X = X + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub

errhadler:
MsgBox Err.Description
End Sub

jiao3232

Sub 合并工作表()

Application.ScreenUpdating = False

Sheets(1).Select

For j = 1 To Sheets.Count

If Sheets(j).Name <> ActiveSheet.Name Then

X = Range("A65536").End(xlUp).Row + 1

Sheets(j).UsedRange.Copy Cells(X, 1)

End If

Next

Range("B1").Select

Application.ScreenUpdating = True

Sheets(1).Select

End Sub

jiao3232

Sub 删除HEAD()
On Error Resume Next
Application.DisplayAlerts = False
For i = 2 To [g65536].End(3).Row
a$ = Cells(i, 7)
Sheets(a$).Delete
Next
Application.DisplayAlerts = True
End Sub