文字列の中間部分を抜き出したい

Question

前提・実現したいこと

VBAにて文字列の中間部分だけを抜き取りたいです。

例
注文書A00001(堀 由文201901).xlsx
注文書A00002(田中 正太郎201901).xlsx

上記の名前の部分のみを抜き取りたいのです。
文字数が違っていても同じコードで抜き取れるようにしたいです。

試したこと

Cells(1, 1) = Mid(tnt, 11, InStr(tnt, 2019))

###　その他
質問の内容が不足してましたら、ご指摘ください。
よろしくお願いします。

Answer 1

空白で分割し、201901を空文字に置換

Cells(1, 1) = Replace(Split(tnt)(1), "201901", "")

日付部分を除去

Cells(1, 1) = Replace(tnt, "201901", "")

Comments

[heine]

回答ありがとうございます。
こちらのコードですと名前のみの出力ができなかったので、他者様をベストアンサーにさせていただきました。

[sazi]

名前って姓名ですか？
どちらか分からなかったのでsplitで分割していますので、そうじゃないならsplitを外せば良いだけですので、追記しておきます。

[heine]

追加の回答ありがとうございます。
私の説明不足と知識不足で、誤解を生んでいたようで申し訳ありません。

いただいたコードで問題なく動きました。
ありがとうございました。

Answer 2

変わるのは、氏名と思われる、"("の後から、"2019"の前までと仮定して
Mid(tnt, 11, InStr(tnt, "2019") - 11)

ポイントは、以下
InStrの2つ目の引数は文字列なので、数字を指定してはいけない。
Midの3つ目の引数は、文字数なので、"注文書～("分の11文字を引く必要がある。

VBAに限らず、思い通りに動かない場合は、検索などで関数の仕様を確認するほうが良いかと思います。

Comments

[heine]

回答ありがとうございます。
ベストアンサーにさせていただきました。
ありがとうございました。