Foxtable(狐表)用户栏目专家坐堂 → 求助,导出excel表报错(超行数)


  共有2322人关注过本帖树形打印复制链接

主题:求助,导出excel表报错(超行数)

美女呀,离线,留言给我吧!
way52133
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:1 积分:76 威望:0 精华:0 注册:2020/7/16 10:17:00
求助,导出excel表报错(超行数)  发帖心情 Post By:2020/7/16 10:29:00 [只看该作者]

导出excel 表代码如下:
图片点击可在新窗口打开查看此主题相关图片如下:2556b5e7599de0c1d17f45e46fbe83d.jpg
图片点击可在新窗口打开查看
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog 
dlg.Filter= "EXCEL 文件|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
 '  MessageBox.Show("你要保存为:" & dlg.FileName,"提示") '提示用户选择的文件
  ' Dim ex As New Exporter
 '  ex.FilePath = dlg.FileName '指定目标文件
   Dim tb As Table
   Dim Book As New  XLS.Book() '(dlg.FileName)

  ' MessageBox.Show("dim book")
   Dim s As Integer =1
   For Each tb In  Tables 
     If tb.name.Contains(".")  Then
     Else   
       book.Sheets.Add(tb.name)    
         '  MessageBox.Show(tb.name)
           For c As Integer = 0 To tb.Cols.Count -1 '添加列标题
               book.Sheets(tb.name)(0, c).Value = tb.Cols(c).Name
           Next
           For r As Integer = 0 To tb.Rows.Count - 1 '填入数据
               For c As Integer = 0 To tb.Cols.Count -1
                   book.Sheets(tb.name)(r +1, c).Value = tb.rows(r)(c)
               Next
           Next
      End If


   Next
'打开工作簿
'MessageBox.Show("add")
Book.Save(dlg.FileName)
Dim Proc As New Process 
Proc.File = dlg.FileName
Proc.Start()

End If




 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/16 10:38:00 [只看该作者]

先保存,重新打开文件,再导

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog 
dlg.Filter= "EXCEL 文件|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
   Dim tb As Table
   Dim Book As New  XLS.Book() '(dlg.FileName)
Book.Save(dlg.FileName)
Book = New  XLS.Book(dlg.FileName)
   Dim s As Integer =1
   For Each tb In  Tables 
     If tb.name.Contains(".")  Then
     Else   
       book.Sheets.Add(tb.name) 
……

 回到顶部