大家好,今天小编关注到一个比较有意思的话题,就是关于电脑表格放入文件夹的问题,于是小编就整理了3个相关介绍电脑表格放入文件夹的解答,让我们一起看看吧。
先在开始——设置——控制面板——性能维护——管理工具——服务中打开Server服务,再在控制面板——外观和主题——文件夹选项中勾上“使用简单的文件共享”。
在任意盘中建一个文件夹,名字随便起,将Excel表格放入该文件夹中,右键文件夹——共享和安全——勾上“在网络上共享这个文件夹”——填个共享名,例如123456——再勾上“允许网络用户更改我的文件”——确定
别人要编辑这个表格,只要在网上邻居中找到这个共享文件夹就可以了,进入文件夹,打开Excel表格就OK了。
可以用VBA解决这个问题,在EXCEL中按ALT+F11调出VBA窗口,按“插入-模块”插入一个用户模块,把下面代码粘贴进去:
Sub 保存文件()'要另存的位置在上面 ActiveWorkbook.S***eAs Filename:="\\192.168.5.6\备份\1.xl***"'下面这个是平时常用的位置 ActiveWorkbook.S***eAs Filename:="e:\文件\1.xl***"End Sub
在表格中把所有新建表格放在一个文件夹,可以按照以下步骤操作:
1. 在Excel中,选择“文件”选项卡,然后选择“另存为”。
2. 在弹出的“另存为”对话框中,选择要保存的位置,并为文件命名。
3. 在“保存类型”下拉列表中,选择“文件夹”。
4. 在“文件夹”对话框中,选择“新建文件夹”。
6. 在“另存为”对话框中,选择新建的文件夹,然后单击“保存”。
这样,您新建的所有表格都会被保存在该文件夹中。如果您在将来继续创建表格,只需将它们另存为该文件夹中的文件即可。
1、新建一个文件夹、将要合并的表格放到里面、新建一个excel工作薄、用excel打开、右击Sheet1标签; 2、选择查看代码(PS:excel有着一项,WPS没有) 3、将下列代码复制到文本框中: Sub 合并搜索当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String application.ScreenUpdating = False MyPath = ActiveWorkbook.Path MyName = Dir(MyPath & "" & "*.xls") AWbName = ActiveWorkbook.Name Num = 0 Do While MyName <> "" If MyName <> AWbName Then Set Wb = Workbooks.Open(MyPath & "" & MyName) Num = Num + 1 With Workbooks(1).ActiveSheet .Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4) For G = 1 To Sheets.Count Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1) Next WbN = WbN & Chr(13) & Wb.Name Wb.Close False End With End If MyName = Dir Loop Range("B1").Select Application.ScreenUpdating = True MsgBox "共合并了" & Num & "个工作薄下的全部工作表。
如下:" & Chr(13) & WbN, vbInformation, "提示" End Sub 4、点击运行、一段时间(取决于表格的大小和多少)后,合并完成了。到此,以上就是小编对于电脑表格放入文件夹的问题就介绍到这了,希望介绍关于电脑表格放入文件夹的3点解答对大家有用。
[免责声明]本文来源于网络,不代表本站立场,如转载内容涉及版权等问题,请联系邮箱:83115484@qq.com,我们会予以删除相关文章,保证您的权利。转载请注明出处:http://www.rebekkaseale.com/post/84351.html