作者：乔山办公网日期：
返回目录：excel表格制作
只要你对文件具有编辑权限就不存在你以什么方式登陆电脑的问题。
编辑权限都有什么权限？读，写/改写，遍历文件列表，不具有删除，完全控制等权限。
这些对你的文件起不到做用。
所以A区B区已破。
再说模块和ThisWorkbook。
我自己在编写代码时，时常会放到ThisWorkbook里面。
标准模块，也就是我们利用“插入-
模块”得到的“模块1”，“模块2”，这些标准模块除了auto_open等一些自动事件之外，没有自己独特的e69da5e6ba90e799bee5baa6333方法和事件。在标准模块中声明的Public公有变量，公有过程可以直接被其他所有模块访问和调用。
比如，我有一个代码是处理sheet1表里面的数据，那么这个代码就直接可以放在sheet1模块中即可。而我有一个代码要用到Workbook_open这样的事件，那么这个事件肯定要放在Thisworkbook模块中。所以代码在什么模块中写，就在于你需要用什么方法和事件。
通常，一些公共的方法我们可以放在标准模块中。自定义函数必须放在标准模块中。
所以你问题的内容具体是放在哪里都可以，不是必须的，所以模块和ThisWorkbook的问题已破。
所以你猜想的问题，不好意思全都没中。
根据你的所说分析，应该是此电脑本身的宏安全权限有关，你可以从这方面入手。
毕竟我没有你的环境，测试起来有难度。
方法1：
选workbook1的sheet1 Ctrl+A Ctrl+C 然后选workbook2。 sheet1 Ctrl+V 我试过CP 38万条数据 也用不了多久。
方法2：
右键点原数据的sheet表，选“移动或复制工作表”，在工作薄中选择目标文件名，选中“建立副本”。
方法3：
如果是多文件。多sheet表。在被写入的文件中写入VBA
Public filepath As String
Public excelapp As New Excel.Application
dim x,y,n,m as long
filepath="你要读取的原数据文件路径+文件名+文件后缀e79fa5e98193e59b9ee7ad94366" '可设为字符变量
Set Workbook = excelapp.Workbooks.Open(Filename:=filepath)
with excelapp.application
n=excelapp.sheets("原数据表名称").usedrange.rows.count
m=excelapp.sheets("原数据表名称").usedrange.columns.count
sheets("被写入数据吧表名称").cells(1,1).resize(n,m).value=excelapp.sheets("原数据表名称").cells(1,1).resize(n,m).value
end with
excelapp.application.quit
你试试在“workbook"的复 Private Sub Workbook_BeforeClose(Cancel As Boolean) 中加入如下句子制：
myNowTime = Format(Now, "yymmdd" &"-" & "hhmmss")
ActiveWorkbook.SaveAs Filename:=currPath & myNowTime &".xls", AddToMru:=False ‘（”currPath“为你的zhidao路径及文件名称）
例子代码：
a = "sheet1"
sheets(a).usedrange.clearcontents