access编的程序导出后的加密文件（没有密码）用access不能直接打开，请问有什么办法

先把文件的扩展名改成mdb，如果还打不开，而且确定access文件没有设密码的话，可能是此文件的admin帐号加密了，用passware软件破解其密码。

-------------------------

“但肯定是access导出的”，这句话我不知该怎么理解，“导出的”数据可以是任何一种格式，不一定还是access的mdb文件啊，如果不是mdb文件格式，你当然无法用access打开了。

---------------------------

如果扩展名改成mdb还提示“不能打开数据库”的话，应该说明这的确不是mdb格式，那么是什么格式就很难说了，甚至是编程者自己定义的一种格式也说不定。

你可以试着用记事本打开，搜索到你想要的内容，修改后保存，如果保存后还能导回去，那么恭喜你，如果导不了，那估计你只能联系编程者了。

本示例用一个按钮事件加一个函数,你照之修改一下就应该符合你的要求了,如果你觉得不太好观看,请COPY到ACCESS VBA窗口中查看,比较直观( 将声明跟函数复制到模块中

第一个先放出API函数声明跟函数

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As Long) As Long

Rem 导出电子表格的函数

Public Function ExportToExcel(stropen As String)

'

' 名称：exportToExcel

' 功能：导出数据到EXCEL

' 用法：exportToExcel(sql查询字符串)

'

'Dim Rs_Data As New ADODBRecordset '定义记录集对象，用完已释放？原代码没释放，我修改之

Dim RS_Data As New ADODBRecordset

Dim irowcount As Integer '行数

Dim Icolcount As Integer '列数

'Dim cnn As New ADODBConnection

Dim xlApp As New ExcelApplication 'excel对象

Dim xlBook As ExcelWorkbook '工作簿对象

Dim xlSheet As ExcelWorksheet '工作表对象

Dim xlQuery As ExcelQueryTable '用完已释放？原代码没释放，我修改之

With RS_Data '记录集对象

If State = adStateOpen Then

Close '如果记录集处于打开状态，则先关闭它

End If

ActiveConnection = CurrentProjectConnection '连接

CursorLocation = adUseClient '本地游标

CursorType = adOpenStatic

LockType = adLockPessimistic

Source = stropen '通过函数传过来的字符串

Open

End With

With RS_Data

If RecordCount < 1 Then

MsgBox ("没有记录！")

Exit Function

End If

'记录总数

irowcount = RecordCount

'字段总数

Icolcount = FieldsCount

End With

Set xlApp = CreateObject("ExcelApplication") '创建excel对象

Set xlBook = Nothing '工作簿

Set xlSheet = Nothing '工作表

Set xlBook = xlAppWorkbooks()Add '添加一个工作簿

Set xlSheet = xlBookWorksheets("sheet1") '工作表

'xlAppVisible = True '意思不明白，加上没影响！

'添加查询语句，导入EXCEL数据

Set xlQuery = xlSheetQueryTablesAdd(RS_Data, xlSheetRange("a1")) 'A1是确定起始行的位置

With xlQuery

FieldNames = True '不知何用[是否是指字段名]

RowNumbers = False '设置第一列是否显示序号

FillAdjacentFormulas = False

PreserveFormatting = True

RefreshOnFileOpen = False

BackgroundQuery = True

RefreshStyle = xlInsertDeleteCells

SavePassword = True

savedata = True

AdjustColumnWidth = True '使用合适的列宽

RefreshPeriod = 0

PreserveColumnInfo = True

End With

xlQueryFieldNames = True '设置是否在第一行处显示字段名

xlQueryRefresh

With xlSheet

Range(Cells(1, 1), Cells(1, Icolcount))FontName = "黑体"

'设标题为黑体字

Range(Cells(1, 1), Cells(1, Icolcount))FontBold = False '不加粗

'标题字体加粗

Range(Cells(1, 1), Cells(irowcount + 1, Icolcount))BordersLineStyle = xlContinuous '如果第一行不显示字段，则不用加一

'设表格边框样式

End With

With xlSheetPageSetup

Rem 以下页面设置因其个性化太强，故不用

'LeftHeader = "" & Chr(10) & "&""楷体_GB2312,常规""&10公司名称：" ' & Gsmc

'CenterHeader = "&""楷体_GB2312,常规""公司人员情况表&""宋体,常规""" & Chr(10) & "&""楷体_GB2312,常规""&10日 期："

'RightHeader = "" & Chr(10) & "&""楷体_GB2312,常规""&10单位："

'LeftFooter = "&""楷体_GB2312,常规""&10制表人："

'CenterFooter = "&""楷体_GB2312,常规""&10制表日期："

'RightFooter = "&""楷体_GB2312,常规""&10第&P页 共&N页"

End With

xlAppApplicationVisible = True

Set xlApp = Nothing '"交还控制给Excel

Set xlBook = Nothing

Set xlSheet = Nothing

Set xlQuery = Nothing

RS_DataClose

Set RS_Data = Nothing

End Function

第二个按钮事件,会调用到上面的函数

Private Sub CmdExportExcel13_Click()

'DebugPrint strSource

Dim strSource As String

strSource = MeRecordSource

ExportToExcel strSource

'更改Excel中的标题

Dim xlApp As ExcelApplication '定义EXCEL类

Dim xlBook As ExcelWorkbook '定义工件簿类

Dim xlSheet As ExcelWorksheet '定义工作表类

'判断Excel是已经打开

Dim hWnd As Long

hWnd = FindWindow("XLMAIN", 0)

'MsgBox IIf(hWnd <> 0, "Excel is running", "Excel isn't running")

If hWnd = 0 Then

Set xlApp = New ExcelApplication

End If

Set xlApp = GetObject(, "ExcelApplication") '获取Excel应用程序

If ErrNumber = 429 Then '出现429错误时延时

DoEvents '转让控制权，以便让 *** 作系统处理其它的事件

DoEvents

Set xlApp = GetObject(, "ExcelApplication")

End If

Set xlBook = xlAppActiveWorkbook '设置活动工作簿

Set xlSheet = xlAppActiveSheet '设置活动工作表

'改写标题

'如果SQL中语句中的字段名足以表达字面意思就可不用下面的了

xlSheetCells(1, 1) = "活动编号"

xlSheetCells(1, 2) = "日 期"

xlSheetCells(1, 3) = "类 型"

xlSheetCells(1, 4) = "活动名称"

'ActiveSheetRange("E:I")Select

ActiveSheetRange("E:I")ClearContents

'xlSheetCells(MeTxtCount + 2, 7) = MeTxtTotal

'xlBookSave '保存

Set xlSheet = Nothing

Set xlApp = Nothing

Set xlBook = Nothing

End Sub

access导出网络访问中断UNC出差。根据查询相关资料信息，本地路径进行测试，对本地数据库使用UNC出错，access指MicrosoftOfficeAccess。MicrosoftOfficeAccess是由微软发布的关系数据库管理系统。结合了MicrosoftJetDatabaseEngine和图形用户界面两项特点，是MicrosoftOffice的系统程序之一。

以上就是关于access编的程序导出后的加密文件（没有密码）用access不能直接打开，请问有什么办法全部的内容，包括:access编的程序导出后的加密文件（没有密码）用access不能直接打开，请问有什么办法、高分求关于ACCESS导出EXCEL的问题！！急！！、access导出网络访问中断等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！