怎样把Microsoft Excel工作表发送给别人 说明白点，最好有详细过程

如果用U盘，那就右键点这个excel文件，发送到可移动磁盘，再把U盘插在另人的电脑上，找开它，拷出来就行；

如果用邮件，那就写邮件，再插入附件，插附件时一般都有个按钮叫“浏览”这就是找你那个eexcl文件在哪里存放，找到后点打开，再点发送就好了。

如果你们在一个局域网内，那可以通过网上邻居找到这个工作站，把它的共享文件夹复制到你的send to 文件夹中，这样你直接用右键点那个文件就有“发送到XXX”的选项了。点它就给了那位你要给的人。

加粗部分要改成实际值

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

Private Const WM_SETTEXT = &HC

Private Type RECT

Left As Long

Top As Long

Right As Long

Bottom As Long

End Type

‘上面定义

jubing=FindWindow(vbNullString, "财务软件标题")‘找到财务软件的句柄

GetWindowRect jubing, a ‘找到财务软件的坐标

s1 = WindowFromPoint(aLeft + 85, aTop + 150)’通过财务软件的坐标+录入框距离财务软件的坐标获取录入框句柄

i=1

do while cells(i，1）<>"" '判断该行内容不为空则循环下面内容，为空则跳出循环

 SendMessage s1, WM_SETTEXT, 0, cells(i,1)’向录入框指定内容

 SendKeys "{ENTER}" ‘敲回车

  Sleep 500 ‘加延时防止财务软件跟不上

  DoEvents ’转让系统空闲

i=i+1

loop’循环结尾

以上就是关于怎样把Microsoft Excel工作表发送给别人 说明白点，最好有详细过程全部的内容，包括:怎样把Microsoft Excel工作表发送给别人 说明白点，最好有详细过程、如何用sendmessage 发送EXCEL中选定的单元格内容、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！