主题：请教导入

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

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

 

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

 

看3楼。

 

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

 

 写在一起的啊

 

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