シートの名前の取出し
msclr::interop::marshal_context^ context = gcnew msclr::interop::marshal_context();
char *charPT = ((char*)(context->marshal_as(wsheet->Name)));  // String→char *