请教导入 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

大师：请问多层表头的表导出为excel表，然后如何实现该表记录导入到结构相同的狐表中？见实例？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目8.zip

做不到。导入excel文件，表头必须是一行，你要先把excel文件处理一下。

如果是合并数据，你就用下面的方法处理

http://www.foxtable.com/webhelp/scr/2334.htm

手工可以复制粘贴，代码如何实现？

请问导出后如何用代码锁定excel的标题部分？不允许修改？

Locked
利用Locked属性可锁定指定的单元格，也可解除锁定。
需要注意的是，如果工作表没有被保护，即使将单元格设置为锁定状态，该单元格仍可以操作。只有在工作表被保护的情况下，锁定单元格才能起作用。如：

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Range("A1:A10")'指定任意单元格
Ws.Unprotect'撤销对工作表的保护
Ws.Cells.Locked = False '解除整个工作表所有单元格的锁定
Rg.Locked = True'锁定指定的单元格
Ws.Protect '保护工作表
App.Visible = True

http://www.foxtable.com/webhelp/scr/2121.htm

怪了？？？以下代码红色部分无效，原因何在？

LockBaseMainForm() '锁定主界面

Dim tb1 As WinForm.Table = e.Form.Controls("Table1")

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog

dlg.Filter= "Excel文件|*.xls" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

tb1.Table.SaveExcel(dlg.FileName, "员工表") '保存文件

End If

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Dim Rg As MSExcel.Range = Ws.Range("A1:H1")'指定任意单元格

Ws.Unprotect(Password:="cpazwdfoxtable")'撤销对工作表的保护

Ws.Cells.Locked = False '解除整个工作表所有单元格的锁定

Rg.Locked = True'锁定指定的单元格

Ws.Protect(Password:="cpazwdfoxtable") '保护工作表

Ws.Protect(AllowFormattingCells:=True) '---允许自定义格式行---

Ws.Protect(AllowFormattingColumns:=True) '---允许设置列格式--- 如何实现调整列宽

Ws.Protect(AllowFormattingRows:=True) '---允许设置列格式---

'App.Visible = True

Wb.Save

App.quit

unLockBaseMainForm() '锁定主界面

写在一起的啊

Ws.Protect(Password:="cpazwdfoxtable", AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True)

主题：请教导入