作者:乔山办公网日期:
返回目录:excel表格制作
VBE界面下》工具》选项
'发送消息函数 (SendMessage)
Public Declare Function SendMessage Lib "USER32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
'查找窗体名函数 (SendMessage)
Public Declare Function FindWindow Lib "USER32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Function myExcelOpen(MyExcelAddress As String, Mysheet As String, MyCaption As String) '打开7a64e4b893e5b19e332Excel文件函数 MyExcelAddress 路径下的Excel文件
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
MyWinHwnd = FindWindow(vbNullString, MyCaption) '调用FindWindow api 函数 "查找" 适合条件的窗口
If MyWinHwnd <> 0 Then
MsgBox "文件已经打开"
SetForegroundWindow MyWinHwnd '设置为活动窗口
SendMessage MyWinHwnd, SW_SHOWMAXIMIZED, 0, 0
Exit Function
Else
Set xlBook = xlApp.Workbooks.Open(MyExcelAddress) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见(或不可见)
Set xlSheet = xlBook.Worksheets(Mysheet) '设置活动工作表
xlBook.Worksheets(Mysheet).Select
End If
End Function
Private Sub Command1_Click()
On Error Resume Next
myExcelOpen App.Path & "\班组标准化建设\2.标准化作业管理\6.派工单\派工单.xls", _
"派工单", "Microsoft Excel - 派工单.xls"
xlBook.Worksheets("派工单").Range(1,2).Font.ColorIndex = 3
xlBook.Worksheets("派工单").Range(1,2).FontName = "宋体"
End Sub
Dim Rang As Object
Set Rang = sh.Range("A3")
With Rang
.HorizontalAlignment = 3 ' xlCenter '水平来源
.VerticalAlignment = 3 'xlCenter 垂直zd
End With
设定列宽zd
Set objCell = objSheet.Range(Cells(2, 1), Cells(10, 1))
objCell.ColumnWidth = 3
设定内自动填充容字体
Range("A1:A2").ShrinkToFit = True