高手请帮我开发个附件中我想要得到的格式，谢谢！

莞风 · 发表于 2015-9-7 22:43

问题件附件中《历史数据记录》M2单元格所提的问题，感谢！

siit · 发表于 2015-9-7 23:54

为什么我打开啥也没有，是我的打开方式不对吗？{:soso_e127:}

wormtwo · 发表于 2015-9-8 06:37

附件中的压缩文件中没有任何EXCEL文件，请重新上传。

莞风 · 发表于 2015-9-8 06:54

不好意思，这个附件可以了！

莞风 · 发表于 2015-9-8 06:56

siit 发表于 2015-9-7 23:54
为什么我打开啥也没有，是我的打开方式不对吗？

我重新上传了，请查收！

莞风 · 发表于 2015-9-8 07:05

wormtwo 发表于 2015-9-8 06:37
附件中的压缩文件中没有任何EXCEL文件，请重新上传。

重新上传了，

莞风 · 发表于 2015-9-8 07:12

wormtwo 发表于 2015-9-8 06:37
附件中的压缩文件中没有任何EXCEL文件，请重新上传。

老师，你在吗?我重新上传了，你能看到吗？

wormtwo · 发表于 2015-9-9 08:21

Sub 打印()
Dim r As Long, S1 As Worksheet, S2 As Worksheet, r1, r2
Set S1 = Sheets("打印模板")
Set S2 = Sheets("历史数据记录")
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True '打印
r = S2.[A65536].End(xlUp).Row + 1 'Sheets("历史数据记录")最后空白行
With S1
r1 = .Columns(7).Find("医疗备件").Row + 1
r2 = .Cells(.Rows.Count, 7).End(3).Row
arr = .Range("g" & r1, "g" & r2)
'Sheets("5月份账单")最后空白行的A:M写入数组："打印模板"工作表的"日期,收货人,收货人地址,目的地,件数,重量,体积,费率,应收,派送日期,手机号,电话,尺寸"
S2.Cells(r, 1).Resize(, 13) = Array(.[B46], .[A17], .[B20], .[D4], .[A26], .[E26], .[J34], .[B31], .[B39], .[J10], .[B23], .[C17], tiqu(arr))
End With
End Sub
Function tiqu(arr)
tiqu = Join(WorksheetFunction.Transpose(arr), ",")
End Function

复制代码

wormtwo · 发表于 2015-9-9 08:22

2015年运单模板 - 副本.rar (183.66 KB, 下载次数: 31)

莞风 · 发表于 2015-9-9 16:48

wormtwo 发表于 2015-9-9 08:22

谢谢老师，非常感谢！

		自动登录	找回密码
密码			免费注册