vb.net+VBA+js网络图片ocr识别

fzy7738

'VBA获取：当前文件所在目录路径、当前文件所在目录路径上一级目录

Sub 返回值2()

Dim 当前文件所在目录路径, 当前文件所在目录路径2, 当前文件所在目录路径3, 当前文件所在目录路径4, 当前文件所在目录路径上一级目录 As String

'设置TextBox控件的属性，主要是：VBA TextBox换行
  With Sheet1.TextBox1
       '.Left = 50 '设置文本框左边位置
       '.Top = 50 '设置文本框顶部位置
       .MultiLine = True '将文本框设置为多行模式
       .ScrollBars = fmScrollBarsVertical '显示垂直滚动条
       '.Text = "这是一个" & vbCrLf & "多行文本框" '设置初始文本内容
  End With


'本函数用来在Excel文档中测试，需要在Sheet1添加一个activeX文本框TextBox1控件

'获取当前目录路径
当前文件所在目录路径 = ThisWorkbook.path
当前文件所在目录路径2 = Application.ActiveWorkbook.path
当前文件所在目录路径3 = Application.PathSeparator
当前文件所在目录路径4 = ActiveWorkbook.path
当前文件所在目录路径上一级目录 = CurDir(ActiveWorkbook.path)

'Sheet1.TextBox1.Text = ThisWorkbook.path
'Sheet1.TextBox1.Text = Application.ActiveWorkbook.path
'Sheet1.TextBox1.Text = Application.PathSeparator
'Sheet1.TextBox1.Text = ActiveWorkbook.path

'获取上一级目录
'MsgBox CurDir(ActiveWorkbook.path)
'Sheet1.TextBox1.Text = CurDir(ActiveWorkbook.path)
Sheet1.TextBox1.Text = 当前文件所在目录路径 & vbCrLf & 当前文件所在目录路径2 & vbCrLf & 当前文件所在目录路径3 & vbCrLf & 当前文件所在目录路径4 & vbCrLf & 当前文件所在目录路径上一级目录
End Sub

fzy7738

'VBA获取上一级目录
'配合使用，才能获取：当前文件所在目录路径上一级目录。
ChDrive ActiveWorkbook.path
ChDir ActiveWorkbook.path
ChDir ".."
Sheet1.TextBox1.Text = CurDir(ActiveWorkbook.path)
--------------------
或者使用其他截取字段方式获取
'首先获得当前目录路径
当前文件所在目录路径4 = ThisWorkbook.path

'使用mid、left函数截取字段方式
前文件所在目录路径上一级目录 = Mid(当前文件所在目录路径4, 1, InStrRev(当前文件所在目录路径4, "\"))
或者
'-1，获取的路径不包括斜杠\
当前文件所在目录路径上一级目录 = Left(当前文件所在目录路径4, InStrRev(当前文件所在目录路径4, "\")-1)