填写各类表格、申请书时应注意的格式问题_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
填写各类表格、申请书时应注意的格式问题
上传于||文档简介
&&大​学​必​备​!
阅读已结束，如果下载本文需要使用
想免费下载本文？
你可能喜欢excel表格打开时出现格式与文件扩展名指定的不一样，怎么打开_百度知道
excel表格打开时出现格式与文件扩展名指定的不一样，怎么打开
，里面的内容很重要如果强制点是点开，请问怎么样才能正常打开，或修复文件！。急，那么文件就是空白的
提问者采纳
如果不是EXCEL文件，还是不行，如果是，还是打不开，确定是什么软件编辑的，基本上是没有办法了，修改扩展名为xls等EXCEL文件格式试试，可以用Excel文件恢复工具修复，证明文件已经损坏首先确定是不是EXCEL表格，然后用相应的软件打开
提问者评价
来自团队：
相关专业回答
用C#导出来excel，打开时总是有个提示：
“您尝试打开的文件“test.xls”的格式与文件扩展名指定的格式不一致。打开文件前请验证文件没有损坏且来源可信。是否立即打开该文件？”
点击是，即可打开，但是总有这个提示，觉得很是不爽。
提供一种解决方案，已测试，有效：
1、先关闭所有的office应用程序，然后打开注册表, 在运行中输入regedit ，可以用快...
其他类似问题
为您推荐：
excel表格的相关知识
其他2条回答
将格式改成，excel格式：07的XLSX，03的XLS
的格式与文件扩展名指定的格式不一致。打开文件前请验证文件没有损坏且来源...我刚才这么解决这样的问题不过我用的是2007 ，打开EXCEL表，选择excel选项，...
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁7078人阅读
新建一个工作表，命名后保存到和与合并的N个文件同一个文件文件夹，按 alt + f11,双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区粘贴如下代码。运行。等候一会就OK了。
宏1：合并当前目录下所有工作簿的全部工作表到当前工作表
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & &\& & &*.xls&)
AWbName = ActiveWorkbook.Name
Do While MyName && &&
If MyName && AWbName Then
Set Wb = Workbooks.Open(MyPath & &\& & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range(&A65536&).End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range(&A65536&).End(xlUp).Row + 1, 1)
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
MyName = Dir
Range(&A1&).Select
Application.ScreenUpdating = True
MsgBox &共合并了& & Num & &个工作薄下的全部工作表。如下：& & Chr(13) & WbN, vbInformation, &提示&
宏2：多个文件表合到一个文件表的多个SHEET中
Sub CombineWorkbooks()
Dim FilesToOpen, ft
Dim x As Integer
Application.ScreenUpdating = False
On Error GoTo errhandler
FilesToOpen = Application.GetOpenFilename _
(FileFilter:=&Micrsofe Excel文件(*.xls), *.xls&, _
MultiSelect:=True, Title:=&要合并的文件&)
If TypeName(FilesToOpen) = &boolean& Then
MsgBox &没有选定文件&
'GoTo errhandler
While x &= UBound(FilesToOpen)
Set wk = Workbooks.Open(Filename:=FilesToOpen(x))
wk.Sheets().Move after:=ThisWorkbook.Sheets _
(ThisWorkbook.Sheets.Count)
x = x + 1
MsgBox &合并成功完成！&
errhandler:
'MsgBox Err.Description
'Resume errhandler
+==================================================================+
点击按钮打开文件对话框的宏：
Private Sub CommandButton1_Click()
Dim fopen As FileDialog
Set fopen = Application.FileDialog(msoFileDialogFilePicker)
fopen.Show
Range(&a1&) = fopen.SelectedItems(1)
Set fopen = Nothing
=============================================
excel2007 在表格中添加按钮
控件位置：
第一步，表格左上角的圆圈点开，excel选项，常用，勾选“在工具栏显示开发工具”
第二步，工具栏，开发工具，插入，里面就是控件选项，包括表单控件和ActiveX控件
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：37063次
排名：千里之外
原创：13篇
评论：15条
(1)(1)(1)(1)(1)(3)(1)(2)(4)(1)(1)(1)怎样把excel的几十张表（每张表格式一致），快速复制到一个表格里，请赐教，有什么公式和方法？_已解决 - 阿里巴巴生意经
大家都在搜
怎样把excel的几十张表（每张表格式一致），快速复制到一个表格里，请赐教，有什么公式和方法？
jianguancezhu的答复：
是在一个工作簿中的吗?如是请用这个代码：Sub&XXX()&&&&Dim&sht&As&Worksheet&&&&Dim&irow&,&icol&,&Num&&&&&Application.ScreenUpdating&=&False&&&&For&Each&sht&In&Sheets&&&&&&&&If&sht.Name&&&&&汇总&&Then&&&&&&&&&&&&With&sht&&&&&&&&&&&&&&&&irow&=&.[a65536].End(xlUp).Row&&&&&&&&&&&&&&&&icol&=&.[iv1].End(xlToLeft).Column&&&&&&&&&&&&&&&&Num&=&Sheets(&汇总&).[a65536].End(xlUp).Row&&&&&&&&&&&&&&&&.Range(.Cells(2,&1),&.Cells(irow,&icol)).Copy&Sheets(&汇总&).Cells(Num&+&1,&1)&&&&&&&&&&&&End&With&&&&&&&&&&&&With&Sheets(&汇总&)&&&&&&&&&&&&&&&&.Columns(icol&+&1).NumberFormatLocal&=&&@&&&&&&&&&&&&&&&&&.Range(.Cells(Num&+&1,&icol&+&1),&.Cells(Num&-&1&+&irow,&icol&+&1))&=&sht.Name&&&&&&&&&&&&End&With&&&&&&&&End&If&&&&Next&&&&Application.ScreenUpdating&=&TrueEnd&Sub新建一个汇总用的表，标签改为：汇总。然后在VB编辑器中增加一个模块，把这代码复制进去。如不会操作请留个联系方式，我给你传个样表。
回答：共&0&条}