[求助]从TXT中提取坐标 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

新代码不需要重新定义变量，不用重新分配内存。

无法整合。如果要做office开发，完整版是必须的，安装简化版那是国民习惯了盗版而已，不要和什么适用性扯到一起

你说的这种情况是普遍存在的，现在的问题是没法要求别人的电脑都装完整版的，想着有没有折中的办法，或者其他实现的思路

没有办法。阉割版少的东西就是做开发需要使用的。简化版只考虑可以用，至于用的好不好不是他们考虑的。

麻烦大师抽空看看，根据word转pdf的代码，照样子改了个excle转pdf的，有错误，不知道问题是什么

///////////word转换pdf

Dim app As New MSWord.Application

try

Dim dlg1 As New OpenFileDialog '定义一个新的OpenFileDialog dlg1:打开位置参数;dlg2保存位置参数

Dim Label1 As WinForm.Label = e.Form.Controls("Label1")

dlg1.MultiSelect = True '如果将MultiSelect属性设置为True,可以选择多个文件,通过FileNames属性返回选择的多个文件

dlg1.Filter= "Word文件|*.docx;*.doc" '设置筛选器

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

MessageBox.Show("你选择了文件个数为:" & dlg1.FileNames.Length & "个","提示")

Dim doc As object

For Each fl As String In dlg1.FileNames

Dim fll As String

doc = app.Documents.Open(fl)

fll = fl.Remove(fl.LastIndexOf("."))

fll = fll.Insert(fll.Length,".pdf")

Label1.Text = "正在转换: " & fll

doc.ExportAsFixedFormat(fll, MSWord.WdExportFormat.wdExportFormatPDF)

doc.close

End If

app.Quit

MessageBox.Show("转换完成")

catch ex As exception

msgbox(ex.message)

app.Quit

finally

End try

///////////excle转换pdf

Dim app As New MSExcel.Application

try

Dim dlg1 As New OpenFileDialog '定义一个新的OpenFileDialog dlg1:打开位置参数;dlg2保存位置参数

Dim Label1 As WinForm.Label = e.Form.Controls("Label1")

dlg1.MultiSelect = True '如果将MultiSelect属性设置为True,可以选择多个文件,通过FileNames属性返回选择的多个文件

dlg1.Filter= "Word文件|*.xls;*.xlsx" '设置筛选器

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

MessageBox.Show("你选择了文件个数为:" & dlg1.FileNames.Length & "个","提示")

Dim Wb As MSExcel.WorkBook

Dim Ws As MSExcel.WorkSheet

'Dim Wb,Ws As object

For Each fl As String In dlg1.FileNames

Dim fll As String

Wb = App.WorkBooks.Open(fl)

Ws = Wb.WorkSheets(1)

fll = fl.Remove(fl.LastIndexOf("."))

fll = fll.Insert(fll.Length,".pdf")

Label1.Text = "正在转换: " & fll

Ws.ExportAsFixedFormat(fll, MSExcel.XlFixedFormatType.xlTypePDF)

Wb.close

End If

app.Quit

MessageBox.Show("转换完成")

catch ex As exception

msgbox(ex.message)

app.Quit

问题1：转换的时候会出现下图的保存框，怎么默认不保存。

问题2：能不能和前面的word转换代码合成一个。

此主题相关图片如下：qq截图20191224204018.png

/////excle转化pdf

Dim app As New MSExcel.Application

try

Dim dlg1 As New OpenFileDialog '定义一个新的OpenFileDialog dlg1:打开位置参数;dlg2保存位置参数

Dim Label1 As WinForm.Label = e.Form.Controls("Label1")

dlg1.MultiSelect = True '如果将MultiSelect属性设置为True,可以选择多个文件,通过FileNames属性返回选择的多个文件

dlg1.Filter= "Word文件|*.xls;*.xlsx" '设置筛选器

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

MessageBox.Show("你选择了文件个数为:" & dlg1.FileNames.Length & "个","提示")

Dim Wb As MSExcel.WorkBook

Dim Ws As MSExcel.WorkSheet

'Dim Wb,Ws As object

For Each fl As String In dlg1.FileNames

Dim fll,bq As String

Wb = App.WorkBooks.Open(fl)

Ws = Wb.WorkSheets(1)

fll = fl.Remove(fl.LastIndexOf("."))

bq = fll.Remove(1,fll.LastIndexOf("\"))

fll = fll.Insert(fll.Length,".pdf")

Label1.Text = "正在转换: " & bq

Ws.ExportAsFixedFormat( MSExcel.XlFixedFormatType.xlTypePDF,fll)

Wb.close

End If

app.Quit

MessageBox.Show("转换完成")

catch ex As exception

msgbox(ex.message)

app.Quit

finally

[此贴子已经被作者于2019/12/24 20:40:41编辑过]

Wb.Saved = True

Ws.ExportAsFixedFormat( MSExcel.XlFixedFormatType.xlTypePDF,fll)

刚试了下这样貌似也可以实现，这种方式也是容许的吗？

Wb.close（False）

主题：[求助]从TXT中提取坐标