<em>Excel</em>如何使用<em>vba</em>代码实现把一

首先使用VBA窗体输入是肯定可以实现的，但是你要多人同时输入，需要使工作簿知共享，虽然EXCEL在共享工作簿功能中有“允许多用户同时编辑”，但是不能实时更新，道必须关闭工作簿后才生效。另一种方法就是写入代码不停的自动刷新。反正这种方法不太顺手内。
建议使用Access实现，access提供模板式的输入容界面，存取数据的速度也较excel快。excel还有数据容量限制。

Rang.copy 语句用错了吧
rang 语句应该不支持 带路径的工作簿名吧
这个应该不叫“发送”，而是写入到或记录到其它工作薄
　　首先，要写入到其它的工作薄，就必须用代码来打开那个工作薄，要打开那个工作薄，就必须知道那个工作薄的完事的路径和名称。如：
　　workbooks("这里是完事的源路径和名称").open
　　或者，调用windows的文件打开窗口来zd指定文件，如：
dim Filename
　　Filename = Application.GetOpenFilename("Excel 文件 ,*.xls;*.xlsx")
　　workbooks(Filename).open
　　接下来才是，数据的写入过程。如，将当前工作薄的sheet1的A1单元格写入到刚刚打开的文件的sheet1的A1单元格：
　　workbooks(Filename).sheets"sheet1").range("A1")=thisworkbook.sheets(sheet1).range("A1")

运行之百后，选择那个“文件2”，度点确定，就把“文件2”里问"sheet3"的A1：L1000复制到运行文档答“sheet1”的版B2：M1001了~
附件文档的模块1里，按alt+f11打开编权辑器

Sub a()
Dim a
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.InitialFileName = ThisWorkbook.Path
If .Show = -1 Then
Set a = Workbooks.Open(.SelectedItems(1))
a.Sheets("sheet3").AutoFilterMode = False
a.Sheets("sheet3").Range("A1:L1000").Copy ThisWorkbook.Sheets("sheet1").Range("B2")
a.Close False
End If
End With
End Sub