https://bankcard.supfree.net/tongku.asp https://qyf.95epay.com/merchant/bankCardBin/search?pageNo=1&type=0#

Sub Macro1() Dim MyPath$, MyName$, sh As Worksheet, sht As Worksheet, m& Set sh = ActiveSheet MyPath = ThisWorkbook.Path & "\" MyName = Dir(MyPath & "*.xls") Appli…