数组提取文件夹内图片 并 批量插入，顺序错误

Tobin_Zhang

麻烦各位大佬，帮看一下如何在  单元格中批量插入图片和图片名称时，为何arr数组中的图片排序是按照   1，10，11，12，13...19，2，20，21....，而不是按照 正常的数字顺序   1，2，3，4，5，6，7，8，9，10，11，...，19，20，21，22，...~~  请大佬们指导原因以及修改方法

网海遨游

楼主，是不是想要这样的？

蓝桥玄霜

合并单元格大小应该一样，或者要有规律，如果任意设置，就需要更多的代码。
插入图片的例子：

Tobin_Zhang

网海遨游 发表于 2020-3-14 17:09
楼主，是不是想要这样的？

1. 老师，非常感谢您的解答！您能告诉我，为何我写的那个程序：为何数组中的图片没按照理想的那样排序么？
2.看了您写的代码，我吸取了一部分，可以通过 split(arr(j),".")=I来判断顺序，一会试下~~
3.我刚试了一下您写的代码，mf=dir 出错~~

Do '??????????????????
      n = n + 1
      ReDim Preserve brr(1 To n)
      brr(n) = mf '????????????????
      mf = dir
  Loop While mf <> ""

Tobin_Zhang

蓝桥玄霜 发表于 2020-3-14 17:25
合并单元格大小应该一样，或者要有规律，如果任意设置，就需要更多的代码。
插入图片的例子：

1. 非常感谢老师的解答~~
2. 老师，为何我用以下函数获得的Arr数组中，不是按照 1，2，3，...,9，10，11，12....，19，20，21，22...这种方式排列，而是按照   1，10，11，...，19，2，20，21，...，29，3，30，31...这种方式排列的呢？我在 Locals Windows里查看了一下，Set fc = f.Files之后，item1,2,3,4,....也是按照以上（  1，10，11，...，19，2，20，21，...，29，3，30，31...）那种非理想的方式排列的，这是为什么？除了通过  split 来判断 “ . ” 前方的数值，还有其它办法解决么？
Private Function FileLList(folderspec, Optional pstr = "*")
    Dim fs, f, f1, fc, i, Arr
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set fc = f.Files
    ReDim Arr(1 To fc.Count)
    For Each f1 In fc
        If f1.Name Like pstr Then
            i = i + 1
            Arr(i) = f1.Name
            Debug.Print Arr(i)
        End If
    Next
    FileLList = Arr
End Function

Tobin_Zhang

蓝桥玄霜 发表于 2020-3-14 17:25
合并单元格大小应该一样，或者要有规律，如果任意设置，就需要更多的代码。
插入图片的例子：

1. 非常感谢老师的解答~~
2. 老师，为何我用以下函数获得的Arr数组中，不是按照 1，2，3，...,9，10，11，12....，19，20，21，22...这种方式排列，而是按照   1，10，11，...，19，2，20，21，...，29，3，30，31...这种方式排列的呢？我在 Locals Windows里查看了一下，Set fc = f.Files之后，item1,2,3,4,....也是按照以上（  1，10，11，...，19，2，20，21，...，29，3，30，31...）那种非理想的方式排列的，这是为什么？除了通过  split 来判断 “ . ” 前方的数值，还有其它办法解决么？

Tobin_Zhang

网海遨游 发表于 2020-3-14 17:09
楼主，是不是想要这样的？

老师，为何   ITEM2  是   “10. Carton weight 2”，而不是    “2. For last carton 2”  ？如果想要让ARR(2)成为 “2. For last carton 2”，是否只能通过一个中间数组BRR，通过  split（brr(2), “.”） 来判断前面前面的数值，重新赋值给ARR(2)？是否有其它方法，直接按照数字顺序排序到数组中，不需要中间过渡数组？

网海遨游

Tobin_Zhang 发表于 2020-3-14 18:52
老师，为何   ITEM2  是   “10. Carton weight 2”，而不是    “2. For last carton 2”  ？如果想要让 ...

你的图片命名方式是"数字十文本"，在排序时被电脑当成文本来排序，按文本排序时，是以第1位来排序的。

网海遨游

Tobin_Zhang 发表于 2020-3-14 18:10
1. 老师，非常感谢您的解答！您能告诉我，为何我写的那个程序：为何数组中的图片没按照理想的那样排序么 ...

下面这段是获取图片数量和图片名称

dim brr(),mp$,mf$,n
mp=thisworkbook.path & "\图片文件夹名\"
mf=dir(mp & "*.jpg")
do
n=n+1
redim preserve brr(1 to n)
brr(n)=mf
mf=dir
loop while mf<>""

Tobin_Zhang

网海遨游 发表于 2020-3-14 19:32
你的图片命名方式是"数字十文本"，在排序时被电脑当成文本来排序，按文本排序时，是以第1位来排序的。

谢谢老师指导~~