以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教导入  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89449)
--  作者：hbhb
--  发布时间：2016/8/22 13:07:00
--  请教导入
大师：请问多层表头的表导出为excel表，然后如何实现该表记录导入到结构相同的狐表中？见实例？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目8.zip
--  作者：大红袍
--  发布时间：2016/8/22 14:36:00
--  
 做不到。导入excel文件，表头必须是一行，你要先把excel文件处理一下。
--  作者：大红袍
--  发布时间：2016/8/22 14:37:00
--  

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

 

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

 
--  作者：hbhb
--  发布时间：2016/8/22 15:34:00
--  
手工可以复制粘贴，代码如何实现？
--  作者：大红袍
--  发布时间：2016/8/22 15:46:00
--  

看3楼。

 
--  作者：hbhb
--  发布时间：2016/8/22 16:05:00
--  
请问导出后如何用代码锁定excel的标题部分？不允许修改？
--  作者：大红袍
--  发布时间：2016/8/22 16:18:00
--  

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

 
--  作者：hbhb
--  发布时间：2016/8/22 18:15:00
--  
怪了？？？以下代码红色部分无效，原因何在？

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() \'锁定主界面
--  作者：大红袍
--  发布时间：2016/8/22 18:57:00
--  

 写在一起的啊

 

Ws.Protect(Password:="cpazwdfoxtable", AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True)
--  作者：hbhb
--  发布时间：2016/8/22 19:27:00
--  
谢谢！