set safety off
public mypath
mypath=""
mypath=getfile("xls")
if len(alltrim(mypath))=0
  messagebox("你未选择任何表文件！",48,"提示")

 ELSE
  Import From (mypath) Type xls
lcTmpDbfName=Juststem(Dbf())
ac=Fcount("&lcTmpDbfName")
For m.lnI=1 To ac
  lcStr="Alter Table "+ "&lcTmpDbfName Rename Column "+Field(m.lnI)+" To "+Evaluate(Field(m.lnI))
  &lcStr.
  ENDFOR
USE bsc表 EXCLUSIVE
ZAP
APPEND FROM "&lcTmpDbfName"
GO TOP
DELETE
PACK
SELECT &mypath
DELETE FILE (mypath).DBF
    messagebox("数据导入成功！",48,"提示")

 ENDIF
怎么总是运行到ac=Fcount("&lcTmpDbfName")提示"找不到别名",请大家帮帮忙！

查了下 没你说的问题

那是怎么回事，总是运行到ac=Fcount("&lcTmpDbfName")就告错，总是找不到别名

没发现“总是找不到别名”

这是因为所取的文件名不符合别名命名规则，可以这样
把lcTmpDbfName=Juststem(Dbf())
改成
lcTmpDbfName=ALIAS()

但这不能保证你其它代码能否正常运行

这样可以

这里改成了alias()是可以取到文件名，但后边的APPEND就没法运行了！

改成这样
APPEND FROM dbf(lcTmpDbfName)

还有你那句
USE bsc表 EXCLUSIVE
应改成
USE bsc表 EXCLUSIVE in 0
select bsc表

这样防止打开当前的表时而关闭了别的工作区