Question

早上好，

我有一个宏，除其他外，在另一个工作簿中对表进行排序。这是相关的代码位

public class createNickname extends AppCompatActivity {
    private static final String TAG = "createNickname";

    private FirebaseDatabase mFirebaseDatabase;
    private FirebaseAuth.AuthStateListener mAuthListener;
    private EditText NicknameInput;
    private Button NicknameReg;
    private String Nickname, UserId;
    private FirebaseAuth mAuth;
    private String EmailEntry;
    private DatabaseReference myref = mFirebaseDatabase.getInstance().getReference();

    @Override
    protected void onCreate( Bundle savedInstanceState ) {
        super.onCreate(savedInstanceState);
        setContentView(R.layout.activity_create_nickname);

        NicknameInput = (EditText)findViewById(R.id.etNickname);
        NicknameReg = (Button)findViewById(R.id.btsetNickname);

        mAuth = FirebaseAuth.getInstance();

        myref.addValueEventListener(new ValueEventListener() {
            @Override
            public void onDataChange( DataSnapshot dataSnapshot ) {
                String value = dataSnapshot.getValue(String.class);
                Log.d(TAG, "value is: " + value);
            }

            @Override
            public void onCancelled( DatabaseError databaseError ) {
                Log.w(TAG, "Failed to read value.", databaseError.toException());
            }
        });

        NicknameReg.setOnClickListener(new View.OnClickListener() {
            @Override
            public void onClick( View view ) {
                Log.d(TAG, "onClick: Attempting to add object to database.");
                String newNick = NicknameInput.getText().toString();
                if (!newNick.equals("")) {
                    FirebaseUser user = mAuth.getCurrentUser();
                    UserId = user.getUid();
                    EmailEntry = user.getEmail();
                    myref.child("userlist").push().setValue(UserId);
                    myref.child("userlist").child(UserId).push().setValue(EmailEntry);
                    myref.child("userlist").child(UserId).push().setValue(0);

                    startActivity(new Intent(getApplicationContext(), LoginActivity.class));
                }
            }
        });
    }

    @Override
    public void onStart() {
        super.onStart();
        // Check if user is signed in (non-null) and update UI accordingly.
        FirebaseUser currentUser = mAuth.getCurrentUser();
    }
 }

＆＃34; wsLSHP＆＃34;是表所在的工作表。该表名为＆＃34;表1和＃34;

Set wbLSHP = Workbooks("CDU_Enrollee Engagement Tracking Report v2.2.xlsx")
Set wsLSHP = wbLSHP.Worksheets("Sheet1")

运行时，我收到以下错误：＆＃34;运行时错误＆＃39; 1004＆＃39;：，应用程序定义的错误或对象定义的错误

这发生在以下行：

wsLSHP.ListObjects("Table1").Sort.SortFields.Clear
wsLSHP.ListObjects("Table1").Sort.SortFields.add _
    Key:=Range("Table1[[#All],[CHW First Name]]"), SortOn:=xlSortOnValues, _
    Order:=xlAscending, DataOption:=xlSortNormal
With wsLSHP.ListObjects("Table1").Sort
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

有关导致此错误的原因的任何想法？

其他工作簿中的VBA排序表

0 个答案: