要把excel表格中的内容截图到邮件中怎么弄?

Posted 2023-05-02

如果是使用邮件发送excel表格，可以按以下方法操作（以QQ邮箱为例）：

1、点击“写信”，点击“添加附件”，将表格粘贴在附件里。发送后你的同事或朋友就能下载原版表格，下载后的表格可以随意编辑修改。

2、如果想要直接在邮件内容里体现表格内容，添加附件后，可点击“添加到正文”（如下图），这样附件中的excel表格就能出现在邮件的正文里了。收件人收到后，可以将表格内容直接复制到新建立的excel表格上

注：步骤2中，原表格如果有公式，则复制后公式会消失，只有值；只有步骤1的方式可保留公式等全部内容。

参考技术A 首先，打开要截图的excel，按“打印屏幕”键(Printscreen)
然后，打开系统自带的“画图”程序，按CTRL+V，再将图片另存，“文件名随便输，”保存类型“选择”JPEG“（该类型的图片体积较小）。
最后，在邮件中插入该图片。追问

能详细点吗？画图程序在哪里？有没有图片呀？

本回答被提问者采纳 参考技术B 最简单的做法是， 选中后，复制，在邮件中粘贴，但是粘贴时要选择“粘贴为图像”，但是这只有在高版本的office才有。 参考技术C 通过截图软件，截个图，并保存下来。（QQ就可以实现）
然后将图片做为附件发送邮件。

如何用VBA新建一个EXCEL表，并将将另一个EXCEL表中的内容复制到这个新建的EXCEL表中

我想在我的计算程序运行完后，产生一个新表，并将表中的内容复制到这个新建的表中
我在网上找到一段代码，我改了改，但只能新建一个表，并打开它，内容复制的代码不知如何写
Sub 新建()
Dim ExcelApplication As Variant
Set ExcelApplication = CreateObject("Excel.Application")
Dim TPath As String
TPath = ActiveWorkbook.Path
With ExcelApplication
.Workbooks.Add
.ActiveWorkbook.SaveAs Filename:=TPath & "\" & "新建表1" & ".xls"
.Quit
End With
Workbooks.Open TPath & "\" & "新建表1.xls"
End Sub
内容复制的代码
Workbooks("计算表").Worksheets("sheet1").UsedRange.Copy Workbooks("新建表1").Worksheets("sheet1").[a1]
可是不对，不知道该如何编写，有谁知道，先谢谢了！

Sub 新建()
Dim excelApp, excelWB As Object
Dim savePath As String

Set excelApp = CreateObject("Excel.Application")
Set excelWB = excelApp.Workbooks.Add

excelApp.DisplayAlerts = False
savePath = ActiveWorkbook.Path & "\新建表1.xls"
excelWB.SaveAs savePath
excelApp.Quit
Workbooks.Open savePath
End Sub

内容复制：
Workbooks("计算表.xls").Worksheets("Sheet1").Copy Before:=Workbooks("新建表1.xls").Sheets(1)
把“计算表”的Sheet1整个复制到“新建表1”中，为最前面一个Sheet，默认命名将是“Sheet1(2)”，楼主可以再重新命名Sheet就行了。 参考技术A excel宏，你要是不知道写的时候，你可以先录制一个宏，这个宏就是你要的功能的操作，然后你查看代码就知道这些操作的代码了，把它复制到你的代码里并修改一下就行了。