如何使用VBA制作报表
答案:2 悬赏:50 手机版
解决时间 2021-03-23 10:30
- 提问者网友：送舟行
- 2021-03-23 05:51
如何使用VBA制作报表
最佳答案
- 五星知识达人网友：西风乍起
- 2021-03-23 05:58
详见附件。
全部回答
- 1楼网友：摆渡翁
- 2021-03-23 06:34
读取文件不需要那么复杂, 下面这个读取文件, 兼按顺序排好.
Sub Inputfiles()
Dim Filename As Variant
Filename = Application.GetOpenFilename(Title:="请选择>>> 你的TIF文件...", filefilter:="TIFF文件(*.tif),*.tif", MultiSelect:=True)
If IsArray(Filename) Then
For i = 1 To UBound(Filename)
Sheet1.Cells(i, 1) = Right(Filename(i), Len(Filename(i)) - InStrRev(Filename(i), "\"))
Next
End If
Sheet1.UsedRange.Sort Key1:=Range("A1"), Order1:=xlAscending
End Sub
注意这是多选. 至于检查部分您说的很详细. 就是不说您想怎么样做...检查出来要做什么呢?
所以, 即使我完全理解您所讲的检查过程, 我也做不了什么...不知道该让程序干什么.
给您的提问点建议, 不要在您的提问中给出自己的答案:
1. 您可能会受自己思路束缚, 您的自问自答未必是最佳方法. 不仅不利于把问题描述清楚, 还可能误导回答问题的人.
2. 您只管描述清楚什么地方存在问题, 哪个地方想怎样处理, 最后想得到什么样的结果. 这样有利于回答问题的人快速理解问题所在, 对您来说可以接收到不同的解决方案.追问没有看懂您的代码。。。。无法制作报表
Sub Inputfiles()
Dim Filename As Variant
Filename = Application.GetOpenFilename(Title:="请选择>>> 你的TIF文件...", filefilter:="TIFF文件(*.tif),*.tif", MultiSelect:=True)
If IsArray(Filename) Then
For i = 1 To UBound(Filename)
Sheet1.Cells(i, 1) = Right(Filename(i), Len(Filename(i)) - InStrRev(Filename(i), "\"))
Next
End If
Sheet1.UsedRange.Sort Key1:=Range("A1"), Order1:=xlAscending
End Sub
注意这是多选. 至于检查部分您说的很详细. 就是不说您想怎么样做...检查出来要做什么呢?
所以, 即使我完全理解您所讲的检查过程, 我也做不了什么...不知道该让程序干什么.
给您的提问点建议, 不要在您的提问中给出自己的答案:
1. 您可能会受自己思路束缚, 您的自问自答未必是最佳方法. 不仅不利于把问题描述清楚, 还可能误导回答问题的人.
2. 您只管描述清楚什么地方存在问题, 哪个地方想怎样处理, 最后想得到什么样的结果. 这样有利于回答问题的人快速理解问题所在, 对您来说可以接收到不同的解决方案.追问没有看懂您的代码。。。。无法制作报表
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯