跪求大神帮忙解答

zhu945275

有几个代码问题请教下：
1：

是否可以根据另一张工作表出库单的内容，如果超过4行数据后。自动扩展这个位置的行数，输入好的公式会自动填充公式？
2：

1. Sub shishi()
   
2.     Dim wdapp As Object, Docx As Object
   
3.     Sheet1.Range("A1:G44").Copy
   
4.     fi = [出库单!B3]
   
5.     Set wdapp = CreateObject("Word.Application")
   
6.     wdapp.Visible = False
   
7.     Set Docx = wdapp.documents.Add
   
8.     Docx.Content.Paste
   
9.     Docx.SaveAs ThisWorkbook.Path & "" & fi & ".doc"
   
10.     Docx.Close
    
11.     wdapp.Quit
    
12.     Set wdapp = Nothing: Set Docx = Nothing
    
13. End Sub
    

复制代码

这个代码是从本论坛上找的，我想把生成的文件保存在别的文件夹上，如这份文件放的目录下的“测试1”文件夹上
3:

导出来的WORD，是否能导出时设置成“页边距-窄”？或者以别的方式实现
新建文件夹 (2).zip (42.32 KB, 下载次数: 2)

2018-8-5 13:49 上传

点击文件名下载附件

zhu945275

朱荣兴 发表于 2018-8-5 15:03
第一个问题，变换一下思路：不要使用公式，用vba来获取数据，根据数据行数自动调整中间的行数

麻烦代码帮我写下，谢谢了