Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog dlg.Filter= "Excel文件|*.xls" '设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮 Tables("表A").SaveExcel(dlg.FileName, "销售台账") '保存文件 Dim Book As New XLS.Book(dlg.FileName) '定义一个Excel工作簿 Dim Sheet As XLS.Sheet = Book.Sheets("销售台账") '引用工作簿的第一个工作表 For i As Integer = 1 To sheet.Rows.count-1 For j As Integer = 0 To sheet.cols.count-1 If sheet(i, j).Text = "1" Then sheet(i, j).Value = "是" ElseIf sheet(i, j).Text = "0" Then sheet(i,j).value = "否" End If Next Next book.Save(dlg.FileName) End If