Excel vba返回的路径

①返回应用程序完整路径

Application.Path

比如：D:SoftWareOffice2003OFFICE11

②返回当前工作薄的路径

ThisWorkbook.Path

比如：D:

③返回当前默认文件路径

Application.DefaultFilePath

比如：C:Documents and SettingsAdministratorMy Documents

④只返回路径

Application.ActiveWorkbook.Path

比如：D:

⑤返回路径及工作簿文件名

Application.ActiveWorkbook.FullName

比如：D:Book1.xls

⑥返回工作簿文件名

Application.ActiveWorkbook.Name

比如：Book1.xls

上面的六种情况，在VBA环境下，你也可以通过如下的代码测试：

MsgBox Application.Path

ActiveSheet.Cells(1, 1).Value = Application.Path

MsgBox ThisWorkbook.Path

ActiveSheet.Cells(2, 1).Value = ThisWorkbook.Path

MsgBox Application.DefaultFilePath

ActiveSheet.Cells(3, 1).Value = Application.DefaultFilePath

MsgBox Application.ActiveWorkbook.Path

ActiveSheet.Cells(4, 1).Value = Application.ActiveWorkbook.Path

MsgBox Application.ActiveWorkbook.FullName

ActiveSheet.Cells(5, 1).Value = Application.ActiveWorkbook.FullName

MsgBox Application.ActiveWorkbook.Name

如何用Excel控件制作简单报表

如何用Excel控件制作简单报表 ①报表的概念 这张报表包含了报表的基本元素，即页眉、页脚、横表头、竖表头、表头交叉区、单元格。 页 眉：位于报表的最上部分。作为报表的描述性信息，概括性的说明报表的名称、表号、批准机关、批准文号等。 页 脚：位于报表的最下部分，用于说明报表的其它信息，例如：单位负责人、部门负责人、制表人等信息。 横表头：也叫宾栏，位于报表的横方向的表头，它是统计的约束条件，也可能是描述信息。对于统计表来说横表头是可以分层的，并且上层的条件对它下面各层都起作用。 竖表头：也叫甲栏，报表竖方

ActiveSheet.Cells(6, 1).Value = Application.ActiveWorkbook.Name

除此之外，和路径有关的一个函数Dir，是专门用来判断文件是否存在的函数，代码如下：

Application.ScreenUpdating = False

With Application.FileSearch

.FileType = msoFileTypeExcelWorkbooks

.LookIn = ThisWorkbook.Path

.SearchSubFolders = True

.Execute

If .Execute() > 0 Then

m = .FoundFiles.Count '当前目录及子目录所有工作薄总数

'MsgBox m

For Each f In .FoundFiles '在所有的工作薄里做一个循环

'MsgBox Dir(f) '列出每个工作薄的名称，只显示名称，如 dzwebs.xls ，无路径

If (Dir(f) <> "Total.xls") Then

Set xlsApp = New Excel.Application

Set xlsBook = Workbooks.Open(ThisWorkbook.Path & "" & Dir(f))

Set MyWantGetsheet = xlsBook.Worksheets(1)

For i = 1 To 8

MyWantGetsheet.Cells(i, 6).Value = "www.dzwebs.net"

Next i

xlsBook.Save

xlsBook.Close

xlsApp.Quit

Set xlsApp = Nothing

Set xlsBook = Nothing

Set MyWantGetsheet = Nothing

Application.ScreenUpdating = True

End If

Next

End If

excel2010网格线设置方法

excel2010网格线设置方法 工作表区域中划分不同行列的横线和竖线被称为“网格线”，今天教大家设置网格线。 1、单击“文件”、“选项”，弹出“Excel选项”对话框，选中“高级”。 2、找到“此工作表的显示选项”，在右侧的下拉列表中选择需要设置的工作表，然后取消勾选下方的“显示网格线”复选框，就可以关闭网格线的显示。 3、若需要修改网格线颜色，则勾选复选框，并单击“网格线颜色”下拉按钮，选择颜色，单击“确定”按钮确认操作。